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THE MOSAIC RAM SYSTEMS FOR ATARI 



CLEARLY THE BEST 




THE 

SCREEN 

CLARITY 




YOU CAN SEE THE MOSAIC DIFFERENCE 



WHAT THE EXPERTS HAD TO SAY 

A.N.AL.O.G. 400/800 MAGAZINE said in a 32K RAM 
board comparison test; "The Mosaic 32K RAM sliowed no 
sign of interference and gave the best screen clarity" and 
"Mosaic uses what we fee! are the highest quality 
components which may improve reliability". 

INTERFACE AGE said after replacing the Atari memory 
board with a Mosaic 32K RAM: "Once in place there is no 
noticeable change in screen clarity" and "in view of its 
excellent performance it should be a serious choice for those 
Atari owners intending to expand their memory" 

Each Mosaic RAM board gives you more than just the best 
screen clarity but also the best in reliability, flexibility and 
compatibility The Mosaic RAM systems offer you the best in 
every way — these features prove it. 

■ Works in both the Atari 400*& 800*computers. 

■ 4 year guarantee. 

■ Complete instructions. 

■ Test cycled 24 hours for reliability 

■ Gold edge connectors for better reliability 

■ Quick no-solder installation. 

■ Full flexible memory configuration. 

■ Can be used with 8K, I6K and future products. 

■ Designed to take advantage of Atari 800's superior bus structure. 

■ Designed for inter-board communication in Atari 800. 

■ Allows Atari 800 to have 2 slots open for future expansion. 

■ Always the best components used for superior screen clarity and 
reliability 

■ Low power design for safety and reliability 

■ Available companion board ( $5) to allow running The Mosaic RAM 
systems independent of other boards. 



THE MOSAIC RAM SYSTEMS FOR 
THE SERIOUS ATARI OWNER. 



THE MOSAIC 32K RAM 



For the serious Atari owner. This is the 32K RAM board 
you've been hearing about. It has every feature you 
could want from a RAM board and more features than 
any other board offers. Each Mosaic 32K RAM comes with 
complete instructions so in a few minutes you will have 
expanded your Atari 800 to 48K RAM. The Mosaic 32K 
RAM works as well in the Atari 400, but we suggest the 
NEW Mosaic Expander. 



THE MOSAIC EXPANDER 



This is the most effective way you can expand to 32K' v ~ 
RAM for your Atari 400 computer. And at almost the I6K 
price! The revolutionary Mosaic Expander is a memory 
board with 1 6K RAM in place and open slots to add 1 6K 
more from the Atari I6K board that comes with your Atari 
400. Each board comes with complete instructions so in a 
few minutes you will have expanded to 32K RANA. 



'Trademark of Atari, Inc. 
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ELECTRONICS 

P.O. Box 708 Oregon City, Oregon 97045 
503/655-9574, Toll Free 1-800-547-2807 



GHOST ENCOUNTERS 

A 16K Assexiibly Language Real-Time 
Adventure Game For ATARI® 400/800™ Computer 





GHOST ENCOtrNTEBS^'' is the second 
in a series of real-time, Joystick con- 
trolled, adventure games following 
ACTION QUEST,™ presenting atoand 
new collection of dangeirs and puzzles. 
You, as a gliost, travel tlirough a net- 
work of 30 i^oms in search, of valuable 
prizes wlille, at the same time, try to 
survive the many perils encountered. 
Of course, a mere ghost cannot over- 
come all the evil powers striving to 
hlock his jotimey. Luckily, you are not 
a mere ghost, hut are equipped with 
the power of transmutation, allowing 
you to take on the form of other, some- 
times more tiseful, ohjects. Who knows 
when a torch or a hammer might he 
Just what the witch doctor ordered. 

Iiocating all 30 rooms and the 80 prizes 
scattered throughout requires a player 
with fast response, physical coordina- 
tion, and intellectual resoxtrcefulness. 
Of the 20 prizes, no two can he acquired 

Atari ' and 400/800'" are ta?ademarks of AIAHI, Inc. 



through exactly identical methods. 
Regardless of which factors most inter- 
est you in a real-time action game, you 
are sure to find them amoiag the wide 
variety of challenges located in GHOST 
ENCOXJHTEBSr 

AvailaMe from jrour local Atari retailer or 
send $29.95 in check or money order 
CCalifomia residents add 6 ¥2% sales tax:> 
to JV Software Inc. 



ALSO AVAIIABLE 

Doni; forget to ask for the original ACTION 
QUEST,™ with its owntuiigue and imagina- 
tive assortment of puzzles, prizes, and 
perpleidng predicaments. Another chal- 
lenging joTixney through an entirely 
different network of rooms and prizes. 

Also available in 16K for $29.95 from your 
local retailer or JV Software Inc. 



JV SOFTWARE, IIMC 

3090 MARK AVE. SANTA CLARA, CA 95051 



COMPUTEI's 

Second Book Of Atari 



After only three years on the market, 
the Atari 400/800 microcomputers 
have become among the most 
popular personal computers ever 
made. So it was no surprise when 
COMPUTEI's First Book of Atari, a 
collection of the best Atari articles 
published during 1980-81 in 
COMPUTE! IVlagazine, also became 
a "bestseller" with Atari enthusiasts. 
The first printing sold out in just a 
few months. 

That's why we've followed up 
with COMPUTEI's Second Bool< of 
Atari. Available immediately, the 
Second Bool< of Atari continues 
COMPUTES's tradition for personal 
computer users. 

But the Second Bool< of Atari 
differs from the First Bool< in one 
important respect - all the articles 
are totally new and previously 
unpublished. The Second Bool< of 
Atari includes such interesting 
articles as "Page Flipping," "Fun 
With Scrolling," "Perfect Pitch," 
"Player-Missile Drawing Editor," 
and "TextPlot Makes a Game." 
Whole chapters are devoted to 
subjects such as "Advanced 
Graphics and Game Utilities," 
"Programming Technigues," and 
"Beyond BASIC." With 250 pages - 
more than 25 percent thicker than 
the First Bool< at the same price - 
the Second Bool< of Atari is crammed 
with information and ready-to-type 
program listings. And the book is 
splral-bourid to lie flat and is fully 
indexed for quick reference. 

Best of all, COMPUTEI's Second 
Bool< of Atari, like COMPUTE! 
Magazine itself, is written and edited 
to appeal to all computer enthusiasts 
at only $12.95. 



Iv InrroJucrion 
1 Chapter One. Utilities Robert Lock 

2 Arari BASIC Joystick Routine" 

5 Joy.sfick Tester ... Kiric Gre.^," 
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36 Plottin.u Made Easy . . . '"' ^''"'^ ' ' ' ' Lawrence R. Stark 
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- beginners and experts alike. Priced 




Available at computer dealers and bookstores nationwide. To order directly call TOLL FREE 800-334-0868. 
In North Carolina call 9 1 9-275-9809. Or send check or money order to COMPUTE! Books P O Box 
5406, Greensboro, NC 27403. 



Add S2-00 shipping ana handling. Outside the U.S., add S4.00 for air mail, S2.00 for surface mail. All orders prepaid, U.S. funds only. 
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EDITORIAL 



by Jon Bell 



There have been many magazine articles and 
editorials written in the last few years about the so- 
called "computer whiz kids" of today. Almost all of 
these articles mention how wonderful it is that these 
kids are so proficient with computers, as well as 
mentioning the importance of computer literacy in 
the next decade or so. Educators beam and gush 
enthusiastically about how these kids (unlike many 
adults, or even the educators themselves) are not 
afraid of computers. Again, the phrase "computer 
literacy" enters into the conversation. Both the 
educators and the kids think it's wonderful. 

Personally, I think it's somewhat scary, and I'd like 
to explain why. 

In the last year or so, I have met a number of kids 
half my age who know much more about 
programming than I. They have been brought up on 
video games and the technological god of rasterscan, 
and they have graduated to worshipping the higher 
order of the computer. I guess that there is a slight 
amount of envy here, since I perceive that these kids 
are going to become much more adept at 
programming than I will ever be. They had a head 
start on me, spending their adolescence (and in some 
cases, childhood) working hard, becoming 
computer literate. 

What isn't so great is what I have seen in some 
(not all, thankfully) of these computer kids. I have 
met kids, who, in their quest to become computer 
literate, do not interest themselves in anything 
besides computers. I have read program submissions 
from kids who chronically misspell words; kids who 
have nice programs but cannot write documentation 
for their programs which can be published in 
A.N.A.L.O.G. unless the documentation is heavily 
edited. I have met kids, who, when they aren't in 
school, do not have any hobbies or play anything 
except for video or computer games. By sacrificing 
everything at the altar of the computer, these kids are 
becoming illiterate. It is my considered opinion 
that the only way to learn anything other than 
experiencing something directly is by reading. 
Reading is an interactive experience. When a child 
reads, his or her imagination interacts with the 
printed word and makes the events in the book come 
alive. Kids who won't read anything other than 
program documentation or the instructions 
included with a video ganie scare me. Or, more 
precisely, I feel incredibly sorry for anyone who 



chooses to be illiterate, or who chooses to remain 
uninformed about the rest of the world. As 
important as they are (and are becoming), 
computers aren't the only thing important on this 
planet. Basic reading and writing skills should come 
first. 

It can be argued that one very good aspect of home 
computers and video games is that they can be a 
family activity, keeping the family unit together after 
dinner, promoting conversation and togetherness, an 
aspect of American home life that seems to be sadly 
lacking lately. Also, one can argue, working with 
computers is an interactive experience; a child is 
learning by doing. Fine, I agree with both of those 
points. However, other than the temporary 
enjoyment that a video game produces while you are 
playing it, what benefits does a video game provide? 
Publisher Lee Pappas mentioned to me the recent 
argument that playing video games increases eye-to- 
hand coordination and teaches a person how to be a 
good loser. (That is to say, it teaches persistence and 
determination; a person wants to top his high score.) 
1 personally think those are rather specious benefits. 
What possible use is eye-to-hand coordination skill 
as applied to something other than the particular 
video game at which one is adept? Sorry, but I can't 
see that playing Star Raiders (my favorite game, 
incidentally) has made me more skilled at building 
models, driving my car or even pasting up the copy 
for this issue. 

Lest many readers think that the previous 
statements seem surprising coming from the editor 
of a computer magazine, let me clarify my position 
by stating that I am not against computers or video 
games. (Obviously — otherwise, why would I be 
working here?) What I am against is the single- 
minded pursuit of any interest, to the exclusion of 
everything else. I believe that is called fanaticism. 
Parents — don't let your kids develop into "com- 
puter literate" illiterates. D 

18 REM *** BLINKING CURSOR - TRY IT! « 

20 GosuB seeeo 

30 END 

30000 RESTORE 30040 

30810 FOR 1=1536 TO 1567:READ 

30020 POKE I,A:NEXT I : A=U5R C15361 

38830 RETURN 

30040 DATA 104,162,6,160,11,169,6,32 

30058 DATA 92, 228, §6, 165, 28, 110, 243, 2 

30060 DATA 110,243,2,106,106,106.106 

38878 DATA A6 ,2AZ, 2, 46, 243, 2, ?B^ 95^22S 
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READER COMMENT 



BUG ALERT 




Dear Editor: 

Enclosed are details on a 
bug in the ATARI DOS (or 
possibly BASIC'S I/O code) 
which can clobber up to half 
of page 6, the "safe" RAM. 

Since the operation of the 
bug isn't obvious, it can cause 
an incredible amount of frus- 
tration — I spent two days 
trying to find a non-existent 
bug in a USR sub, before 1 
realized that DOS was the 
culprit. 

Note that I am sending a 
copy of the information to 
several other magazines, so 
that it can be distributed as 
widely as possible. 

Sincerely, 

David H. Simmons 

Redondo Beach, CA 

BUG ALERT!! 

RAM page six (1536-1791, 
$600-6FF) is NOT always 
"safe" memory. 

A bug in either DOS (DOS 
I, DOS 2.0s, and OS/A tes- 
ted), the BASIC cartridge, or 
the lOK OS ROM (Version 
A tested) causes the location 
of the disk's I/O buffer to 
move from around location 
7000-8000 (decimal) to lo- 
cation 1408, which is only 
128 bytes below location 
1536, the beginning of page 



This means that an input 
or output of more than 128 
bytes will destroy some or all 
of the first 127 bytes of page 
six! 

The program below dem- 
onstrates the change of ad- 
dress problem. 

TESTING INSTRUCTIONS: 
A: Type in program. 
B: SAVE to disk as 

"D:BUGTEST.BAS". 
C: Type "RUN". 



188 REM BUG DEW 

lie REM BY DftVID H. 51MM0M5 

128 DIM I»5t256) 

138 OPEM ttl,4,B,"D:BUGTE5T.B 

05" 

148 REM (OR OTHER 'TEXT RECO 

RD' FILE) 

158 FRIHT "lOCB BUFFER ADDRE 

55: ";PEEK 18521 +PEEK{853)»25 

6 

158 REM «tlOCB ttl ICBftL/ICBft 

H)« 

178 INPUT »l;mS! INPUT ttl; IN 

S 

188 PRINT "ftFTER INPUT: ";PE 

EKl852)tPEEK(853)»256 

198 PRINT " +128= 1536, 5TftR 

T 8F PAGE 5IK!":PRINT "I/O 

f mre than 128 bytes 1«PE5 

OUT anything in page six!" 

288 CL05E ttl: END 



Dear Editors: 

The questions concerning the 
interference band which some- 
times appears to roll up the screen 
on ATARI 400, 800, and VCS 
machines have an easy answer. 
ATARI failed to follow good en- 
gineering practice in the design of 
the power supply circuits. But, the 
deficiency is correctable for less 
than a dollar. 

The interference is caused by 
the omission by ATARI of a com- 
ponent required in any power 
supply regulated by an integrated 
circuit. Without the omitted com- 
ponent, the regulator circuit can 
oscillate at a very high frequency. 
Such oscillation causes the inter- 
ference band on the screen. ATARI 
uses only electrolytic capacitors 



to filter the power from the regu- 
lator. Electrolytic capacitors are 
only effective in eliminating low 
frequency oscillations. 

So the corrective action required 
is to put in a filter to eliminate 
high frequency oscillations too. 
The component needed is a .01 
micofarad ceramic capacitor avail- 
able at a Radio Shack Store. One 
of them should be connected in 
parallel with each electrolytic ca- 
pacitor in the power supply sec- 
tion of the console. The wires 
used should be cut as short as pos- 
sible and connected by soldering. 
After these additions, the inter- 
ference will be totally eliminated 
and the power supply will gener- 
ate less heat. 

Sincerely, 

James Howard 

Austin, Texas 

Dear A.N.A.L.O.G., 

Congratulations are certainly in 
order to Michael A. Ivins for the 
magnificent program TRIPLE 
THREAT DICE, published in 
issue # 7. We enjoyed it 
tremendously. 

The odds should be changed 
within the program so that (when 
the player wins), the player will 
receive his own money back, as 
well as the stated odds for that bet. 
For example, the even money bets 
in the program only returns the 
player's bet, if the player wins. 

This can be corrected by 
changing the followmg lines: 



265 H1N=:MIH+<BETC©)«23 :P05 
ITIOM 6,21:? MIN; 

288 WIN=MIN+CBETC1)K25 :P05 
ITIOM 6,21:? WIN; 



Also, in the following lines, add 
one niore count to the number 
following the asterisk. 



How about a nice vacation on the 
beaches of France - for just $39.95? 



At SSI, we think that our latest software for the Atari? TRS-80® 
and Apple® — BATHE FOR NORMANDY™ — is more than a 
great strategy game. We think of it as a great vacation package. 
After all, we are whisking you off to the northern coast of 
France for 25 days of fun and excitement (June 6 to 30, 1944) 
all for just $39.95! 

Of course, we're not promising peace and quiet There is a 
war going on, you know....WorId War II! 

We'll be taking you to the beaches of Normandy in style. Not 
on a mere jumbo 747 or an ocean liner, but an LCI (that's 
Landing Craft Infantry). Let's see the Joneses top that! 

Like any good traveler, 
you need to plan ahead 
What's the weather going 
to be like out there? Rough 
and stormy? Calm and 
gorgeous? It's hard to say, 
so you'd better be pre- 
pared for all kinds. 

How about supplies? 
Well, we're a little tight on 
Ittggage space, so you'll 
have to ju^Ie among the 
things you really need: 
fuel, general, and ..^^0%.. \ 

combat supplies. 

How about 
some friend- ^^j^^^fm'^ sa ■ 

ly sea bom- jflHRni ' .. ^.. ... , 1 ^jg. • .0^^ 

bardmentto ^^ffWFt'Jr^""'' ^ I .R*-. 

let the natives 
know you're 
coming? 
After all, 
you don't 
want trouble 
once you hit the Z^' 
beaches. The 
natives are a bit ^i ^ 



hostile at first and a little naval artillery fire really helps to 
loosen them up. 

And our service? Have we got good service — and plenty of 
it! Whole divisions and regiments of infantry, paratroopers, tank 
units, and commandoes arc at your every beck and call. We do 
have to apologize for their different leadership and combat 
ratings. It's so hard to get good, consistent help these days. 

You want sightseeing? You've got sightseeing! Nice historical 
towns like St Lo, Cherbourg, and Caen — which you just have 
to take in (or take over, as the case may be) 
We know there's a lot that goes into preparing for a vacation, 

and we don't want 
you to worry about 
; the details one bit 
SSI is one of the 
most advanced com- 
l;- panics around 
||- \ because we're totally 
I computerized. Our 
great computer pro- 
gram takes care of all 
the dirty work so all 
you do is enjoy. After 
all, you're on this trip 
for (he fun and 
games, not work. And 
if you have a hard 
time finding friends 
to play with, who 
needs friends? You 
can play solitaire 
against the computer 
any time 

For complete details 
see the travel agent 
at your nearest game 
or computer store 
today! 




1 


\ 


^'tr 




^:*i. 




STRATEGIC SIMULATIONS WC 



maxBll noppydis 



If there are no convenient stofes near you, VISA and M/C holders can 
order direct by calling 800-227-1617, ext 335 (tofl free). In California, call 
800-772-3545, ext 335. To order by mail, send your check to; Strategic 
Simulations Inc, 465 Fairchild Drive, Suite 108, Mountain View, CA 94043. 
(California residents, add 6,5% sales tax.) 



Available in32K cassette c«r40K disc for the Atari* 400/800; 16k cassette 
for the TRS-80-' Level 11, Models I & III; and 48K disc for the Apple*' II with 
Applesoft ROM card. Please specify which version when ordering. 

WHITE FOR A FREE COtORCATALOG OF AIL OUR GAMES. 



Apple is a registered trademark of Apple Computer In 



Atari is a registered trademark of Atari Inc- 



TOS-80 is a registered trademark oftlreTandyCorporation, 
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295,310,2019,2110,2282,222 
2,2232,2242,2252,2262,2272 



Sincerely, 
Henry L. Smith 
Newburgh, N.Y. 



Gentlemen: 

We write in response to the 
question presented by Mr. 
Tucker, issue 7 or your magazine, 
how to draw a simple circle? 

Presented below, while not 
exactly simple, is a routine which 
will draw a circle considerably 
faster than the one presented by 
the magazine. 

This routine draws the circle 8 
sides at a time by reflecting the 
calculated points of one seventh 
of the circle to the other seven 
sides. 

Respectfully, 

David M. Kampschafer 
Programmer/ Analyst 

Lloyd D. Ollmann Jr. 
Programmer-Consultant 

Synergistic Software 



18 KCEHTER=3ie/2:YCEMTER= 

192/2 

100 GRAPHICS 8 

lie COLOR 1 

120 ? "EMTER RADIUS:"; : IN 

PUT RADIUS 

130 LET HADIUS=RADIUS+3-l 

140 LET K=0 

150 LET Y=RADIUS 

160 LET DIAHETER=3-2»HADI 

US 

170 IF X<=V THEN GOSUB 18 

BO: IF DIAHETER<e THEN DIA 

METER=DIAMETER+4»X+6 : X=X+ 

l:GDTO 170 

180 IF X>V THEN END 

199 DIAMETER=DIAMETER+4»C 
X-YJ+19 

200 Y=Y-1 

218 X=:K+l:60T0 178 

IBOe REM 

1810 PLOT XCENTER+X,YCENT 

E»+y 

1820 PLOT XCEHTER+Y,YCENT 

ER+X 

1830 PLOT XCEHTER+Y,YCENT 

ER~K 

1040 PLOT XCEHTER+K,YCENT 

ER-Y 

1850 PLOT XCEHTER-X,YCENT 

ER-Y 

1060 PLOT XCENTER-Y,YCENT 

ER~K 

1070 PLOT XCENTER-Y,YCENT 

ER+K 

1080 PLOT XCENTER-X,YCEHT 

ER+Y 

1090 RETURN 



MANIAC IN 32K 

We have received many requests for information on how to run 
issue no. 6's "Maniac" game in 32K machines. Stephen A. Vance, of 
Brooklyn, Ohio, has found a way to do just that. He writes: 

"When Issue Number 6 of A.N. A.L.O.G. Magazine arrived in the 
mail, I was thrilled to see a machine language game in it. 
Unfortunately, the article states that the program requires 48K and I 
only have 32K. I decided to take a closer look to see if it really needed 
48K. I discovered that (the program) was using address $8800 
(34816 decimal) to $9000 (36864 decimal) for player-missile 
graphics. Since I only have 32K, the system can't use those addresses. 
Therefore, I went through the program changing the player-missile 
graphics to $6800 (26624 decimal) to $7000 (28672 decimal). 
After doing this, I rewrote it to tape again and it worked perfectly. 
This program was worth the effort." 

Use the appropriate changes below to make "Maniac" run in 32K. 

Note: the disk version will create a file called "MANIAC.OBJ". 
This is a binary file. Use DOS menu option "L" to load this file (no 
cartridge). The "Maniac" game will automatically start. 



1 REM MANIAC 32K CASSETTE CHANGES 

189 DIM X$(3984) 

143 IF J=999 THEN 500 

500 XSC184,184}=CHR$Cie4) 

510 X$C1455,14S5}=CHR$C195) 

529 X$C1458,1458]=CHR$(195) 

538 X$ (1471, 1471) =CHRSCie5) 

549 X$C1474,1474)=CHR$Cie5) 

558 X$C1544, 1544) =CHR$ (195) 

569 X$(1547,1547)=CHR$(ie5) 

576 X$(2147,2147)=CHR$(184) 

580 X$(2337,2337)=CHR$(185] 

598 X$(234e,2348)=CHR$(10e) 

690 X$(2343,2343)=CHR$(196) 

610 X$(2346,234e)=:CHR$(107) 

629 X$(2349,2349)=CHR$(ie7) 

638 X$ (3306, 3306) =CHR$ (106) 

649 X$(33e8,3398)=CHR$(186) 

658 X$(3318,3319)=CHRS(187) 

669 X$(3312,3312)=CHR$(197) 

676 X$(3314,3314)=CHR$(ie5) 

7498 DATA 999 



1 REM MANIAC 32K DISK CHANGES 
188 DIM X$ (39843 
143 IF J=999 THEN 588 
580 X$(184,184}=CHR$(ie4) 
518 X$ (1455, 1455) =CHR$ (185) 
529 X$(1458,1458)=CHR$(185) 
538 X$(1471,1471)=CHR5(185) 
548 XS (1474, 1474) =CHRS (105) 
558 X$(1544,1544)=CHR$(185) 

569 XS(1547,1547)=CHR$(195) 

570 X« (2147, 2147) =CHHS (104) 

589 XS(2337,2337)=CHRS(105) 

590 X$ (2348, 2348) =CHR:$ (186) 
688 Xf (2343, 2343) =CHRS (186) 
610 XS(2346,2346)=CHH$(187) 
520 XS (2349, 2349) =CHRS (187) 
636 X$(3306,3386)=CHR$(186) 
640 X$(33e8,3398}=CHR$(196) 
659 X5 (3318, 3310) =CHRS (107) 
669 XS(3312,3312)=CHRS(197) 
678 X$(3314,3314)=CHR$(105) 
1808 OPEN ttl,8,e,"D:HANIAC.0BJ" 

5000 DATA 255,255,6,64,127,79,169,60,1 

41,2,211,169,119,141,231,2,2931 

7480 DATA 10,0,11,8,38,64,224,2,225,2, 

38,64,8,8,8,0,678 

7498 DATA 999 
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Be one of more than 16 nailUon 
alter-egos that your computer can 
generate. Walk into a labyrinth 
filled with traps, treasures and 
monsters. There you'll test your 
strength, constitution, dexterity, 
intelligence . . . against thou- 
sands of monsters in over 200 
caverns and chambers — growing 
in wealth, power and experience as you progress 
through the four levels of the dungeon. 

Your character will do whatever you want him to do. 
Do battle — in real time — with the likes of giant ants, 
ghouls, zombies... Explore the various levels of the 
maze and discover the great treasures within. 

The Game Manufacturer's Association named The 
Temple of Apshai the computer game of the year. 
The Temple is the very first computer game — ever to 
win the Hobby Industry award for excellence. There 
can be only one reason for that: it's a great game. 

So what will you think of The Temple of Apshai now? 
Now that it's even better than ever. With better 
graphics — animated movement — and completely 
new sound effects that make your computer come 
alive and make The Temple even more fun.* 

The Temple has a superbly illustrated 

56-page Book of Lore, and your 

local dealer has it for the ATARI,* * 

TRS-SO,** APPLE,** and IBM** 

computers. 

* If you already have The Temple of Apshai, you 

can enjoy these great improvements. Just 

send us your original cassette or disk 

together with your check for $5.00 and 

we'll send you the brand new version — 

with better-than-ever graphics and sound. 

** ATARI, TRS-80, APPLE and IBM 

are trademarks of Atari, Inc., Tandy 

Corp., Apple Computer, Inc., and IBM, 

respectively. 

©1981,AOTOMATEDSIMOLATIONS, 
INC., P.O. Box 4247, Mountain View, 
Ca., 94040. 
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NEW 




by The Program Doctors 



Things are happening fast in ATARI computer- 
land. Business partnerships, new software, new 
joysticks, and an outstanding speech synthesizer 
have all come about since we last talked. 

In a move to get a share of the burgeoning home 
computer market, CBS has signed a marketing 
agreement with K-Byte (K-RAZY SHOOTOUT). 
There will be a delay of about two months in the re- 
lease of K-Byte's three new cartridges, K-RAZY 
KRITTERS, K-RAZY ANTIKS, and K-STAR 
PATROL, since all new packaging and advertising 
will be prepared by CBS. We've seen these games, 
and as we've told you before, they are well worth 
waiting for. This agreement, along with CBS's 
working agreement with Bally, is just the beginning 
of their move into the ATARI PCS market. 

What would you do if you won $25,000? Put a 
down payment on a house, buy a Porsche, or pay 
your MasterCharge bill? After winning the firsf 
ATARI Star Award for MY FIRST ALPHABET, 
Fernando Herrera has done the only sensible thing 
and started his own software company. He has 
further capitalized on his achievement by naming his 
organization First Star Software. We have been told 
by a very reliable source that his ASTRO CHASE is 
dynamite. This all machine language arcade game is 
planned for release in late October. 

The amount of new software that has recently 
been hitting the market is overwhelming and most of 
it is top-notch. One of the best comes to us from 
across the ocean. AIRSTRIKE, from English 
Software Company, has to be one of the hardest 
games we have ever played since Theo (for our new 
readers, Theo is our 800) became a member of our 
family. In a typical SYPFAD scenario (Save Your 
Planet From Absolute Destruction), this one or two 
player game artistically employs a horizontally 
scrolling screen as you fly your Mark V fighter- 
bomber across the Fortress of Gemini. You will 
encounter everything but the kitchen sink in this 
mission. Surface-to-air missiles attack you from 
below, meteor showers attack from above, fission 
bombs attack from everywhere and sliding airlocks 
attempt to block your path unless you can neutralize 
them with your laser cannon. Ammunition and fuel 
dumps dot the landscape, and you must destroy 
them to refuel your ship and reload your arsenal. 
(Your supplies are limited, naturally — we told you 
this game was hard!) As you progress to higher 
levels, the amount of fuel and ammo your ship can 




carry is decreased due to higher gravity. The key to 
this game is timing and control, as the speed of the 
enemy defense system is directly related to the speed 
of your fighter-bomber. This program can only be 
run with the data-lock key (included) that must be 
plugged into joystick port #4. This arcade quality 
game is outstanding in all respects with two 
exceptions. A joystick used in the conventional 
manner controls your ship, with the fire button 
shooting your laser cannons. But in order to drop a 
bomb you must hit the space bar. Unless you are a 
three-handed alien from Arcturus you will find this 
maneuver quite klutzy. Secondly, when you are hit, 
rather than starting your next fighter at the point of 
destruction, you are sent back to one of two starting 
points depending on how far you have progressed. 
This game is hard enough without these added 
frustrations. 




TRACK ATTACK 

Broderbund's TRACK ATTACK is an 

outstanding translation of the original by Bill 
Hooper (The Solitaire Group-MATCH RACER). 
Based on the cops and robbers theme, you have a 
chance to not only steal the gold, but jump across the 
beautifully displayed Broderbund Express and steal 
the whole train. In three different screens, TRACK 
ATTACK boasts some of the finest graphics seen to 
date. Upcoming releases from Broderbund include 
CHOPLIFTER, DAVID'S MIDNIGHT 
MAGIC, SEAFOX, STAR BLAZER, 
SERPENTINE, DUELING DIGITS, 
LABYRINTH, and a 16K cassette version of 
APPLE PANIC. 

Back in the dog days of the summer of '81, when 
we were dying for quality software, there was a 
football prediction program available from 
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Adventure International entitled PROPIX '81. It 
was a nice try, but didn't quite make it. The author of 
that program, Russ Wetmore, must have realized 
that he could not make a living gambling so he 
enrolled in a programming school. He obviously 
graduated summa cum laude because PREPPIE, 
also from AI, has everything that can be gotten out of 
the bits of the CPU. With the aid of many excellent 
utilities such as MICROPAINTER, THE NEXT 
STEP, and ATARI MACROASSEMBLER, 
Wetmore has created a work of computer art that is 
destined to become a classic. In the guise of 
Wadsworth Overcash, a freshman fraternity pledge, 
you are sentenced to a full day of golf ball retrieval on 
the world's most dangerous course, the Nasty Nine. 
Hindering your progress are golf carts, lawn mowers, 
tractors, alligators, rolling logs, streams, and a huge 
killer frog. This program is outstanding in so many 
areas it must be seen to be fully appreciated. The 
playfield resembles a full-color cartoon and you will 
find yourself unconsciously humming the music. 
Obviously, you must avoid being hit by vehicles on 
the course, but we recommend you see it at least 
once to see how you look as a pancake. This game is 
so polished that even the instruction booklet must 
be mentioned. It's hysterical! 

The Scott Adams Adventure Series has gone 
graphic!!! Now you can see all the puzzles and perils 
that have teased and frustrated you in the past. 
Unlike the On-Line Hi-Res adventures, the 
S.A.G.A. series uses animation, different 
perspectives, and full color. PIRATE ADVEN- 
TURE is the first of the series to be converted to 
graphics. If this is any indication of how the 
remaining eleven will be done, we are in for a real 
treat. Even if you have solved PIRATE 
ADVENTURE in its original text version, do it 
again! You'll enjoy it. 




PREPPIE 

The cartridge business is picking up. In the near 
future, all of the following programs will be available 
in ROM packs!: CROSSFIRE (On-Line); 
WIZARD OF WOR, DELUXE INVADERS, 



GORF (Roklan); EMBARGO, FIREBIRD, 
RUSSKI DUCK (Gebelli); and SPEEDWAY 
BLAST (I.D.S.I.). Already available is a ROM- 
crammed version of I. D.S.I. 's POOL 1.5, entitled 
POOL 400. The way that I.D.S.I. has taken their 
original 48K program, kept all the great features, and 
put it into a 16K cartridge is truly remarkable. 
POOL 400 should satisfy all the Hoppes and 
Masconis who are memory and/or disk drive 
deficient. It is played with a joystick instead of a 
paddle; aligning shots and adding english is simple 
even for the youngest hustlers. 




POOL 400 



We heard a rumor that scented software (Eau do 
Cartridge) is on the way from. . . (are you ready for 
this!). . . AVON! By this time next year expect a lot 
more cartridges from many companies, and 
probably a piece of hardware added to the ROM 
packs to stop those stupid cartcopy utilities (i.e. 
THE BLOCK - "back up your cartridges" - COME 
ON, BE SERIOUS! How many cartridges have you 
ruined? ) 

Jerry White hasn't been sleeping on his qwerty 
board. Since TRIVIA TREK he has translated 
POKER TOURNEY for Artworx, a five card draw 
tournament that will thoroughly relax the ardent 
arcaders. It's you against six other card sharks who 
each possess individual card playing characteristics. 
Based on the rules of the poker parlors in Gardenia, 
California, POKER TOURNEY is both 
challenging and stimulating. The cards appear as 
realistic as if you had pasted a deck on your TV. 

Jerry has written many fine utility packages, but he 
has really outdone himself with JERRY WHITE'S 
MUSIC LESSONS. This outstanding tutorial from 
Swiftware will teach you everything you wanted to 
know about programming music and sound in 
ATARI Basic. There is a marvelous demo of special 
effects, and programs teaching sound generation, 
chording of all major scales, sound related poke 
locations, and a Sing-a-long routine. Including 
PLAYER PIANO, (second in the series), which 
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turns your computer into a twenty note mini-piano 
with a full, graphically accurate screen display of the 
piano keyboard, this package contains thirteen 
separate programs. 
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POKER TOURNEY 

Several programs designed for the youngest 
members of your family have been released from 
Sub-Logic. These programs are geared for children 
ages 4-12, and include two arcade games and three 
adventure type games with graphics. ROBBY, THE 
ROBOT CATCHER, SKY RESCUE, 
ADVENTURE ON A BOAT, GHOSTLY 
MANOR, and THE BLACK FOREST are all 
simple enough for the kids to play well, yet they 
incorporate enough challenge to hold their 
attention. Sub-Logic has not forgotten about Mom 
and Dad and will be converting their popular pinball 
simulation A2-PB1 in the very near future. With 
ten levels of play and 40-user adjustable parameters 
for creating your own customized games, this 
program promises to be something special. 

Three companies have come to our rescue in the 
"when will somebody make a better joystick?" 
department. After thorough testing on several 
different types of games, we feel that two of these 
companies have come close but one of them really 
seems to know what you want. Wico, the world's 
largest manufacturer of commercial arcade controls, 
is introducing a line of joystick products called 
COMMAND CONTROL, the first of which is 
now available. This is a very impressive looking piece 
of equipment, however, it is very large, somewhat 
loose, and lacks consistent accuracy. Game-Tech's 
new joystick, PRO-STICK, lacks smooth cornering 
ability in the maze games, and directional control in 
firing is inconsistent. This product is also very tiring 
to use, due to the size of the base. It does not fit 
comfoTtably in your hand, and even placing it on a 
hard surface did not solve the problems. Both of 
these products surpass the ATARI joystick only in 
durability, and in comparison they are both rather 
expensive. But don't give up hope yet. Suncom has 
released a line of products that not only solve the 
above mentioned design problems, but are 



moderately priced. The STARFIGHTER is billed 
as "the ultimate joystick" and they might be right. It 
is smaller than all the others, including ATARI'S, and 
it won't cramp your hand during marathon arcade 
sessions. Response and accuracy are excellent (wait 
until you try the angle shots in K-RAZY 
SHOOTOUT). The SLIK STIK is Suncom's 
lower priced model, and carries a shorter warranty 
period. For you southpaws who can't get it together 
no matter what joystick you use, complain no more. 
Suncom's LEFTY JOYSTICK ADAPTOR 
enables you to hold the joystick with the fire button 
in the upper right hand corner and maintain proper 
directional control. Both Suncom and Wico will 
have joystick extension cords. 

Don't Ask Computer Software has released a 
product that you Must Ask for. And if you don't, it 
can ask for itself. We're talking about S.A.M., the 
Software Automatic Mouth, a speech synthesizer on 
DISK! ! No expensive hardware to buy! This exciting 
breakthrough gives you an unlimited vocabulary, 
full inflection control, separate speed and pitch 
control and more for only $59.95. Accessed easily 
from Basic, S.A.M. will amaze your friends and 
breaks the ground for an entire new generation of 
software. This program is a must for every ATARI 
computer owner. 




By now we're sure you have noticed that our 
column has changed. With this new format, we can 
bring you more information, keep you more current 
with the industry and cover a wider range of 
products. We would appreciate any comments, 
suggestions or criticisms (take it easy on the bad stuff 
— our egos are very fragile). D 
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TRICKY TUTORIALS (tm) 



VOUR ATARI AND EDUCATlONAL 
SOPTWARE? PLAYER MISSILE Sl^APH/CS. 
TUTOR'AU. 



There are many things that the ATARI computers can do eilher better, or easier 
than other small computers. The following series of programs is designed for 
anyone who is at least familiar with BASIC programming. What each lutorial offers 
is similar to an extensive magazine article with all discussion in as simple 
language as possible, plus you get MANY examples already typed in and running. 
The instruction manuals range from 10 to 50 pages, and some tutorials lill up a 
complete tape or disk. There is little overlap in what is taught, so anyone wanting 
to know all they can should buy them all (my banl<er thanks you). ATARI buys 
these from us to use in training their own people! Rave reviews have been pub- 
fished in ANTIC. ANALOG, CREATIVE COf^PUTING, and even INFOWORLD. You 
trust INFOWORLD, don't you? 

TT#1: DISPLAY LISTS—This program teaches you how to alter the program in the 
ATARI that controls the format of the screen. Normally, when you say "Graphics 
8", the machine responds with a large Graphics 8 area at the top of the screen and 
a small text area at the bottom. Now, you w/ill be able to mix various Graphics 
modes on the screen at the same lime. The program does all of the difficult things 
(like counting scan lines}. You will quickly be able to use the subroutines included 
in your own programs. 
16K Tape or 24K Disk, $19.95 

TT #2: HORIZONTAL/VERTICAL SCROLLING-The information you put on the 
screen, either GRAPHICS or TEXT, can be moved up, down, sideways, or 
diagonally. We provide the basic methods and leave the rest up to your skill and 
imagination. Includes 18 examples to get you started, with several using a small 
machine language subroutine for smoothness. 
16K Tape or 24K Disk, $19,95 

TT#3; PAGE FLIPPING— Now you don't have to redraw the screen every time you 
change the picture or text. You will learn how to have the computer draw the next 
screen you want to see while you are still looking at the previous screen, then flip 
to it instantly. You won't see it being drawn, so a complicated picture can seem to 
just appear. Depending on your memory size and which graphics or text modes 
you are using, you can instantly look at up to 50 pages. The basic method takes 
only 9 lines and the usefulness is infinite. 
16K Tape or 24K Disk. $19.95 

TT #4: BASICS OF ANIMATION— This program shows you how to animate simple 
shapes (with some sound) using the PRINT and PLOT commands, and it also has a 
nice little PLAYER/fVIISSILE GRAPHICS game you can learn from. The P/l^ exam- 
ple is explained and will get you started on this complicated subject (more fully 
explained in TT #5), This would be an excellent way to start making your programs 
come alive on the screen with movement! Recommended tor beginning users. 
16K Tape or 24K Disk, $19.95 

TT #5: PLAYER/MISSILE GRAPHICS-Learn to write your own games and other 
animated applications! The tutorial begins with many small examples that compli- 
ment the 50 page manual, then gradually builds up to a complete game where 
everything you need to know is fully explained. Also included are two machine 
language utilities that you can use to animate Players with from BASIC. Next we 
include two of the best editors currently available; one for editing playfield shapes 
(backgrounds): and one to edit your players, and all in glorious Technicolor!! 
Everythingexcept the two editors run in IBKTapeor 32K Disk. $29.95 

TT #6: SOUND AND MUSIC— Unless you have spent many years experimenting 
with the four voice channels, you will learn a lot from this one! Learn to play stan- 
dard notes, chords, and whole songs using some simple "tricks". One of the 
nicest parts are the examples of special sound effects that you can refer to 
whenever you need a sound for a program or to impress a friend. This program will 
be of interest to all ages and levels of experience! 
16K Tape or 24K Disk, $19.95 

SPECIAL DISCOUNT 
Order the first six tutorials in a 3-rmg binder for $99.95. a $30.00 savings! 

77 /7.- DOS umiTIES-We at Educational Software have been shocked by some 
of the prices others are charging to offer you small utilities to help in the use of 
your Disk Drive, We now offer you all of the following plus explanation as to how 
each was written, and how to use them: A UNIQUE MENU PROGRAM, AN 
AUTORUN.SYS BUILDER, DISK INSPECTOR (LOOK AT SECTORS), DISK JACKET 
PRINTER, AUTOMATIC FORMATTER, RECORD SAVE AND LOAD UTILITY. 
32K Disk Only, $29,95 
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MASTER MEMORY MAP (tm) 

This book is the most valuable source of information for 
your ATARI you can buy. It starts out by explaining how 
to PEEK and POKE values into memory, so ttiat even new 
computer owners can usemany of tfiese "Tricks", Then 
you are given 32 pages of the memory locations that are 
the most useful, along with hints on how to use many of 
the locations. Finally, it includes hints on problems you 
may be having with the computer and discusses the new 
Graphics modes 9 to 11 - Even ATARI buys this book from 
us! $6.95 

USER SUBMITTED PROGRAMS— 

MINI-DATABASE/DIALER-slores and edits up to 8 
lines of information such as names & addresses, phone 
numbers, messages, inventories, or anything you want. 
It has the usual sort, search, and print options, but it 
also has an unusual feature; If your file includes phone 
numbers and your phone company allows touch-tone 
phone signals, the program will DIAL THE PHONE 
NUMBER FOR YOU! 16K Tape or 24K Disk. $24.95 

THE GRAPHICS MACHINE-allows the ATARI to act like 
more expensive graphics computers using simple com- 
mands like line, box, circle, polygon, fill, and 
savescreen to get a high resolution picture you can save 
on disk in only five seconds! Many more features! 48K 
Disk Only. $19.95 

BOB'S BUSINESS-14 small business type programs 
accessed from a common menu. 16K Tape or 32K disk. 

$14.95 

OUR NEWEST PROGRAMS 



CONTACT YOUR LOCAL 
DEALER or ORDER BELOW 

We have other lihe programs for ATARI computers. 
Write for a catalog- 
Send us your programs lo sell too! 



■ OUR BEST GAME * 
SPACE GAMES-Our family is being attacked by 
ALIENS, and only you can save us. A comic book manual 
will guide you through three games that test your ability 
in space skills Includes ALIENS, SURVIVE, and ROBOT 
ATTACK, and is lor all ages. The first two games require 
16K for Tape. The last game and all Disk users need 
32K $24.95 

MATHS FOR FUN-Another ENGLISH import teaching 
basic math skills. Very colorful and enjoyable to use. For 
ages 5 to 16, 16K Tape or 2')K Disk. $19.95 

n #10: SOUND EFFECTS-From laser blasts to ringing 
phones, this tutorial will show you how to make unique 
sound effects in all of your programs! 16K Tape or 24K 
Disk S19.95 



To order COD, VISA or MasterCard call - (408) 476-4901 

By mail include $3.00 postage (USA only) or $1 .50 Memory Map only- 
j;alifornia residents add 6.5% TAX,— Specify Tape or disk. 




4565 Cherryvale Avenue 
Soquel, Ca. 95073 
(408) 476-4901 



MINI WORDPROCESSOR-A simple text editor to write, 
save, and print several pages at a time, 32K Tape or 
Disk, $19,95 

KID'S #1-lncludes a MATH QUIZ, a children's 
TREASURE HUNT, and a DIALOGUE program, 16K Tape 
or 24K Disk. 3 for. . . $14,95 

KID'S #2-SPELLING BEE, WORD SCRAMBLE, 
and TOUCH. 16K Tape or 24K Disk. 3 Educational games 
for . . . $14.95 

PLAYER PIANO— Turns your keyboard into a mini-piano 
and more, 24K Tape or 32K Disk, $14,95 

DOG DAZE— Two cute little doggies race for the lire 
hydrants, shoot their bones, and just have a lot of tun! A 
fast action program for all ages, 8K Tape or 16K Disk, in 
machine language, $16,95 

GRAPHIC SYMBOL LABELS-for your keyboard lo re- 
mind you of the built-in Graphics symbols, 2 complete 
sets for . , . S2.95 



MARATHON— This is a unique math quiz for one or two 
players. You are in a race to move your runner across the 
screen first! There are four levels of play with five modes 
of operation for each. The game uses joysticks for all 
input, so play is easy for young children. This wonderful 
learning tool is imported from ENGLAND for your team- 
ing pleasure. Your kids will never even notice they are 
playing an EDUCATIONAL program, 16K Tape or 24K 
Disk, $19,95 

n #8: CHARACTER GRAPHICS-Character Graphics is the 
best way to animate your ATARI! Make letters look like 
space monsters, gunfighters. or a myriad of other shapes. 
Use our editor to create these multicolor shapes and then 
we'll show you how to move them around the screen. This 
tutorial even shows how our Space Games were written! 
16K Tape or 24K Disk. $19.95 



The New Standard 

A FINANCIAL WIZARD 1.5 




THE ULTIMATE PERSONAL FINANCE SYSTEM FOR ATARI* 



Budget -forecast 26 expense categories 

Check Entry -easy data entry -scan & correct 

26 major & 36 sub-categories- information block 

Check Search-single or multiple parameters- 

(up to seven) to search entries 

Tabulations -detailed expense vs. budget by 

month, year-to-date, category 

Bar Graphs- screen displays in graph form 

expenses vs. budget- by month or category - 

printing with graphic capable printers 



Check Reconciliation -fast clearing of resident 
checks & deposits, complete summary report 
Checkwriter- print your custom checks 
Printouts -most popular printers • Audit Report 
Multi-Colored Graphics • Audio Enhancements 
7 Utility Programs • User- Friendly Operation 
Easy To Use Instruction Manual 
Tinted Plastic Storage Case 



The system is designed for Atari computers having a 
minimum of 24K and operating from a disk drive. The 
price is only $59.95 plus $3 for handling/postage. 
If your dealer does not have A Financial Wizard . . . 
Telephone orders are accepted on 
Mastercharge or Visa credit cards. IWail order must be 
accompanied by checl< or money-order or credit card #. 
Dealer Inquiries invited. (405)751-2783. 



•trademark of Atari Inc. 



OK residents ad 4% Tax. 



A Financial Wizard 
Exclusively thru 

a CHECK ENCLOSED 

NAME (Print) 

Address 



/7/i/ LII\IE 



COMPUTER CENTERS of OKC < 



n VISA 



"10944 North May 
Oklahoma City, OK 73120 
{405)751-2781 

D MASTERCHARGE 



City 

Card* 



State. 



-Zip, 



_Exp.. 



,Sig. 
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PROGRAMMER AIDS 



by Tom Hudson 



How many times have you had a program crash 
with an unknown error, your reference manual no- 
where in sight? Or maybe a fellow user group 
member needs to know the internal keyboard code 
of an "inverse-video X," but the only manual you 
have handy is the ATARI BASIC reference manual. 



Several companies have followed the example of 
IBM's so-called "green card" and introduced fold- 
out reference cards specifically for the ATARI 
400/800 computer systems. 

Since each of the available reference guides con- 
tains different information, in my opinion it would 



COMPARISON CHART ACE PRO CARD WALL CHART 


Price $9.95 $9.95 $16.95 


Number of pages 16 13 1 


Hex to Decimal conversion • • 


Binary number conversion • 


Assembler operation codes • • 


Operating system memory map • • 


Commonly used memory locations • • • 


BASIC error codes • • • 


Assembler cartridge error codes • 


System I/O error codes • • • 


XIO command codes • • • 


Device names/IOCB assignments • • 


BASIC command summary • 


Basic reserved words • • 


Basic OPEN parameters • 


Controller information • • • 


Audio control information • 


Audio frequency/note conversion • • 


ATASCII values • • • 


Internal keyboard codes • • 


Character set displacements • 


BASIC/O.S. graphics modes • • • 


Graphics point sizes • 


Graphics screen limits • • • 


Bytes per graphics line • 


Graphics total RAM requirements • • 


Color assignments for graphics modes • • 


Color value information • • 


Display list format • 


Player-missile memory map • • 


Console switches • • 


LIST/SAVE command formats • • 


ATARI 825 printer codes • 


Epson MX-80 printer codes • 



NEC 8023A printer codes 



ISSUES 
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be unfair to the companies involved to make a judg- 
ment based on my personal needs. Therefore, I will 
present a comparison chart describing the contents 
of each guide, allowing each reader to make a deci- 
sion based on his or her requirements. 

The three programmer's guides that will be con- 
sidered here are the Pocket Reference Card from 
Advanced Computing Enterprises, the Pro Card 
from On Line Computing centers OKC, and the Pro- 
grammer's Guide wall chart from The Computer 
Center. The Pocket Reference Card and the Pro Card 
are both similar to IBM's "green card." That is, they 
both are pocket-sized, fold-out reference guides 
made from heavy card stock. The Programmer's 
Guide wall chart is a huge poster-sized sheet meant 
for "at-a-glance" reference above the computer. 

As one can easily see by studying the chart, 
each one of the available programmer's aids has both 
strong and weak points. Hopefully, this comparison 
will make ATARI computer owners more aware of 
such differences. D 

Advanced Computing Enterprises (ACE) 
5516 Rosehill, Shawnee, KS 66216 
On Line Computing Centers OKC 
10944 A North May Ave. 
Oklahoma City, OK 73120 

The Computer Center 

P.O. Box 171, Old Saybrook, CT 06475 






DATA PERFECT 

FOR THE ATARI 400 AND 800 COMPUTERS 

YOU MAKE THE COMPARISON 



D.P. 




GENERAL INFORMATION 

Cost of Program 

Cost of Ulilities Program 

llncluded In ProgramI 
Cost of Reports Pmgrarn 

llncluded In ProgramI 
Compatible With Letter Perfect (tm) 
Word Processing 
Menu Driven 

l¥e/y User Frimdlyj 
Complete Documentation 

(Manual Tabbed And Indexedl 
Single Loari Program 

Wo Swapping Of Program Diskenel 
Macliine Language 

lExtremely Fast OperationI 
Can Use Single Disk Drive 
Can Us Multiple Disk Drives 
Ability To Design Stireen Mask 

lUser Designs Arrangement Of Data! 
full Keyboard Editing Available 

(Delete/Insert A Character; Go To End/Beg 

of Line; Fine 'n', TAB, FTC I 
Compatible With Bit 3 BO-Cotumn Board 

SAO'Column and 80-Column Version Amiable) 
Works With Any Parallel Printer 

(Supports Atari 850 Interlace! 
Totals Of Numeric Field 

(Return Total And Average Value/Fieldj 
fail Safes Provided for Data Protection 
Error iWesseges Displayed '" 

Status Lines for Ease of Use 

(Options Always Available For Referencel 





SEARCHES AND EDITING 

Multiple Searches Allowed On Same flecord' 

(Search On 9 Criteria Per Recordl 
Search On Two Criteria In Same Field 

(Up To 4 Fields In Single Recordl 
Wild Card Searches 

(And/Or, Include, Character, Or Block/ 
Search On Basis Of Record Number 

(Search For An Individual Recordl 
Search On Range Of Data Desired 

/Dates, Numbers, Values, Greater Or less Than, B/ual To, etc) 
Editing Of Records Individually 
Editing Records Globally 

(Verification AllowedS 
Delete Records Individually 

(Verification Allowedl 
Deleting Records Globally 

(Verification Allowedl 




UTILITIES SECTION 

Add Fields To Existing Data Base 
Delete fields from Existing Data Base 
Reformat A Data Base 

(Copy Formal Of Existing Data BaseJ 
Make Additional Copies Of Data Base 

(Create Data Base For Extended Recordsl 
Sort on Multiple Criteria 

fSort On Basis Of ^ Fiefds tn A SortI 
Sorts On Multiple Criteria 

(Assending Or Descending) 
Depth Of Sort Can Be Changed 

(Designate Number Of Charters Deep To Sort) 
Merge Information From Other Data Bases 

(Merge Standard Text Files) 

Add Or Delete Fie/ds From Data Base 

Merge Previous Entered Data from Existing file 
Back Up A Data Base 

IMake A Bacl<lJp Of Currerit Source OafaJ 
Pack A DataBase 
(Remove Deleted Records From Disk Storage) 



$99,96 

SOOOO 

$OQ,IJ0 

YES 

YFS 

YES 

YES 

YES 

YES 
YES 
YES 

YES 

YES 

YES 

YES 

YES 
YFS 
YES 



YES 

YES 

YES 

YES 

YES 

YES 
YES 

YES 
YES 



YES 

YES 
YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 
YES 

YES 



FILE 

MANAGER 

"BOO" 



REPORT GENERATOR 

Design Report To User Specifications 

Level Breaks Allowed At Users Option " 

(Up To 4 level Breaks Per Report) 
Designate Font To Be Used In Repot I 
Boldfacing Allowed In A Repott 

(With Dot Matrix Printer) 
Mathematical fotmulas Allowed In Report 

(Example, Field Y + Field Y " fiW i') 
Auto Page Number Allowed In Report 
Auto Date Entering Allowed In f 
Repeating Characters Allowed 
Optional Level Breaks and Page 
Breaks When Sort Values Change 
Up To 7 Lines Allowed fot 

Header on Each Report 
Up To 2 Lines Allowed For Detail 

Information On A Report 
Variable Spacing Allowed Between Data 

On Items In A Report 
Multiple Fields Allowed In A Report 

(Number, Date, Alpha, Farmulal 
Search Criterian Allowed On Report 

(Same Criteria As In Editor) 
Ability To Have "Literal" Data 

Printed In A Report 
Ability To Have "Conditional" Data 

Printed In A Report 
Use A Default Date Field 
Designate Default Value For Specific fields 



LABELS REPORT GENERATOR 

Mailing Labels Allowed 

(Specifically Designed For labels) 
User Designs Data Placement On Label 

(One Across label Design) 
Multiple Fields Allowed On Label 

(Date, Alpha, Numeric, Formulal 
Repeating Charactets Allowed 
Front Designation Allowed 

Print Labels On A Conditional 

Search Criteria Valid On Label 

(Same Search Criteria As Editing) 



MATHEMATICAL ABILITIES 

Basic Math Calculation 

Addition, Substractioo, Multiplication,: Division 
Built In Calculator (AutomaticI 

(Use In Editing, Or Adding Datal_ 
Find the Integer Value Of A 

Numeric Expression 
Find The Log Base 'e' Of Y 
Find The Log Base 1 0' Of 'x' 
Find The Absolute Value Of'n' 
Exponentential Notation Used 
Find The Square Root Of 'n' 
Formulas Allowed Between Fields 

(Field X /+ - •// Field y - Field z] 

(Field X /+ - yy N . field Y| 



SPECIFICS 

Maximum Numfaar Of Fields Per Recordj 

Maximum Number Of Formulas In A File 
Maximum Length Of A Field 
Maximum Record Length 
Maximum Number Of Level Breaks 
Records Per Diskette 

(Depends On Length And Number Of Fie(ds) 
Data Bases Allowed On Each Diskette 

(Can Be Expanded To Additional Diskettes) 
Form Letter Capability 

(Compatible With Letter Perfect) 



D.P. 






YES 

YES 

YES 
YES 

YES 

YES 
YES 

YES 
YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 



YES 

YES 

YES 

YES 
YES 
YES 
YES 



YES 

YES 

YES 

YES 
YES 
YES 
YES 
YES 
YES 



32 

IB 

127 

511 

4 

VAR. 

ONE 

YES 



UK ENTERPRIES, INC. 



P.O. BOX 10827 

ST. LOUIS, MO. 63129 

[314] 846-6124 




Atari - A Trademark of Atari Inc., Full View 80 a Trade Mark of Bit 3 Computers 
Fill Manager 800 A Trademark of Synapse Softwate, Lenei Perfect, Da 
Perfect A Trademark of UK Enterpnes, Inc. 
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D: CHECK 



16K DISK 



by Istvan Mohos 



EDITOR'S NOTE: 

For the last few issues, A.'N.A.L.O.G. has been 
printing program listings in a ^S-column format for easier 
entry into reader's computers. We have found that errors 
can still sneak in (especially when typing marathon- 
length programs such as issue no. 6's "Maniac"). In 
order to help those readers with disk drives check to see 
if they have made any typos, with this issue we are 
introducing "D.CHECK", a debugging aid. /t will be 
used for those listings that are longer than average, or 
have many DATA statements. Such program listings will 
have a table of values listed after them. This is a 
"checksum" table, explained in the folloiving article. 
Unlike other debugging aids, D.CHECK will tell you the 
exact line in which an error resides. It can also be used 
with BASIC Ai- with no modification. 

Boot the system with DOS II and "D:CHECK" 
SAVEd onto disk. Type in your program to be de- 
bugged. LIST the program to disk. Type: RUN 
"D:CHECK". At the prompt type in the name of 
your program. 

Your program will now be read 3 consecutive 
times from the disk. The first reading (lines 190-200 
of 'CHECK') counts the lines of your program, es- 
tablishing the variable 'LINECOUNT'. The second 
reading (lines 240-310 of 'CHECK') tabularizes 
every 15th actual line number of your program: R(0) 
contains your first line number, R( 1 ) holds your 
16th line number, R(2) holds your 31st line number, 
etc. 

Unlike the line-by-line input of the first two 
readings, the third reading of your program is byte- 
by-byte (lines 330-360 of 'CHECK'). Beginning 
with the line number of the first line of your 
program, the ATASCII equivalent of each letter 
(including spaces, special characters, inverse video) 
are summed up. The resulting 'CHECKSUM' 
undergoes a module division which strips off digits 
higher than hundreds. The remaining 3 -digit 
number represents uniquely, the first line of your 
program. The process repeats, resulting in a 
checksum for each line of your program, contained 
by array C(LINECOUNT). 

Lines 370-450 of 'CHECK' write a program Hst- 
ing to disk under the name 'BUG'. 'BUG' is a series 
of data statements. The first line of 'BUG' might 
look like this: 

2801 DftTA 389,972,454,31,721,555,127,1 
26, 323, 442, 453, 571, le, 928, 865, 6959 



where 2001 is the starting line of your program, 389 
is the checksum of the first line of your program, 972 
is the checksum of the second line of your program, 
etc., 6959 is the total of 15 checksum numbers of 
data Une 2001: use it to check a range of 15 hnes at 
once. 

The hne number of the second line of 'BUG' 
(2095 DATA for example) coincides with the 16th 
line of your program: the numbers in '2095 DATA' 
are checksums of the 16th to the 30th lines of your 
program. 

When the 'CHECK' run is finished, you are in- 
structed to wipe the memory by typing 'NEW and 
then ENTER "D:BUG". Type 'LIST' to view the 
data statements, use 'CONTROL 1 ' to stop scrolling 
if your program had more than 165 lines. 

The published source of the program you typed in 
should have an identical set of data statements listed 
after it. This was produced by a run of 'CHECK' 
reading the original listing of the published program. 

Compare screen versus print, the last number of 
the first statement. If it matches, you have 15 perfect 
lines: continue with the last number of the next state- 
ment. If there is a discrepancy, check each number in 
that data statement. If the fifth number in screen line 
2164 (for example) does not match with the fifth 
number of the printed data hne 2164, the bug will be 
found in the fifth line of the typed-in program, 
counting from line 2164. 

Note all the discrepancies, then ENTER "D:your 
prog" (the typed-in program) to make the necessary 
corrections. Your program will automatically wipe 
the 'BUG' data by writing its own lines over it. Re- 
LIST your program to disk after you have the cor- 
rections, then re-RUN "D:CHECK" for a double- 
check. D 



188 REH W333 DEBUGGING AID 

BY ISTUON HOHOS 
118 GRAPHICS 8:? :? "This run will LIS 
T data stateHents with the nane: \M 

0, to the disk ." 

120 ? :? "The [inrrl DftTft is created by e 
valuating each character of a user pro 
gran, LISTed to disk.":? 

130 ? "Replace the word 'USER' in line 
150 with the n awe of your progra w; 
then type HMEECD CO HT aiaiEn ." 

135 PIK=PEEK 1559) :Z=0: REH BECH^OT ^^ 

140 POSITION 2,15:LIST 150: POSITION 28 

,ll:STOP 

150 OPEN 111, 4,0, "D: USER" 

160 ON X GOTO 238,338 

170 ? "H":? "DISflBLING SCREEN. . .STAND 

BY...":FOR 1=1 TO 8ee:NEXT I:PeKE 559, 
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Z:REM debug before poking 
180 LIMECOUNT=Z:DIM I5C126) 
190 TRAP 210:INPUT ttl; 1$ : LINECOUMT=LIN 
ECOUMT+1 
200 GOTO 190 

218 CL05E ttl:Q=INT(LIHEC0UHT/153 :I>IM C 
CLIMECOUNTl ^ R (Q) , SS t5) : IF (LINECOUNT=Z 
OR li=""y THEM 560 
215 IF ft5C{lSCl,lJ)<48 OH flSCflSCl^lJJ 
>57 THEM BOO 
220 X=1:G0T0 150 

230 RflMGE=Z:LIME=Z:FOR 1=1 TO 5:55(1,1 
J=" ":MEHT I 
240 COUMT^Z 

250 IMPUT ttljI$:T=l:COUMT=COUMT+l 
260 IF ISCT,TJ<>" ■• THEM 55 (T , TJ =l5 (T, 
T3 :T=T+l:GOTO 260 
270 LIHE=UALtSSJ 

280 R(RANGE]=LINE:RANGE=RANGE+1 
290 TRAP 320: IMPUT ttl;l5 

300 C0UNT=C0UMT+1:IF C0UNT=15 THEN 240 
310 GOTO 290 

320 CL05E ttl:X=2:G0T0 150 
330 FOR 1=1 TO LIMECOUMT:CHECKSUM=Z 
340 GET ttl,NUMBER:PRODUCT=KWNUHBER:CHE 
CKSUM=CHECKSUM+PR0DUCT:K=X+1:IF K=4 TH 
EM K=l 

345 IF NUMBER=155 THEM 360 
350 GOTO 340 

360 CHECK5UH=CHECKSUM-1000«IMT tCHECKSU 
M/1008J :C(IJ=CHECK5UM:MEHT I 
370 CLOSE ttl:OPEM ttl, 8,0,"D :BUG" :LIME = 
RCZ) :ITEM=Z 

380 C0UMT=15:T0TAL=Z:IF LINEC0UNT<15 T 
HEN COUNT=LINECOUNT 
390 PRINT ttl;LIME;" DATA "; 
400 FOR 1=1 TO COUNT :DATUM=CC15*ITEM+I 
) :PRINT ttl; DATUM;","; :TOTAL=TOTAL+DATU 



M:NEKT I 

410 PRINT ttl; TOTAL 

420 ITEH=ITEM+1 :LIMEC0UNT=LIHEC0UNT-15 

:IF LINECOUMKl THEN 450 

430 LINE=RtITEm 

440 GOTO 388 

450 CLOSE ttl:POKE 559^PIK 

460 ? "KQTo Check [iHB data against pri 

nted data statenents, type NEM. Th 

en type 

470 5 " 



ENTER " ; CHR5 (34) ; "D : BUG[dMUdIl ■ 
Type LIST after the 
READY prOMpt." 

480 ? ;? "The line nuMber of each data 
stateMentcDincides with the first lin 
e of the" 

490 ? "user prograH vfhich the data sta 
tenent evaluates." 



500 
ent 
the 
510 
520 



'NuHbers within each data stateH 
represent consecutive lines of 
user prograH." 

'The last nuHb er i s the total." 
:? "Check the H-m nuMber of eac 
Hent against the printed wer 



h state- 
si on;' 

530 ? "only in case of a discrepancy c 
heck each nuMber in the data statene 
nt." 

540 ? "Make note of the lines containi 
ng the b ugs. T hen ENTER ";CHR5(34J ;"D: 
yourprogOanilin" 

550 ? "to Make the corrections. ":END 
560 POKE 559, PIK:? "«Q":? "Your typed- 
in prograM was not properlyLISTed to d 
isk." 

570 ? :? "Please LIST your progran to 
disk, thenRUN ";CHRS (34J ; "D rCHECK"; CHR 
5(341;" again. ":CLR :END 



DISCOUNT COMPUTER 



pfjnii 



Ralall Dlscoonl 



APPLE 



Choplilter $ 34.95 $ 25,00 

HI-RES Adv. P1 - Deadly Secrets 34.95 25.00 

Pig Pen 29.95 21.00 

Zenith 34.95 25.00 

Phazer Fire 29.95 21.00 

Wordrace 24.95 18.00 

Format II (80 Col Card Rqd) 375.00 248.00 

Firebug 24.95 18.00 

PFS (New improved) 125.00 90.00 

Wizardry 49.95 36.00 

Knights of Diamonds (Scenario rt2) 34.95 25.00 

David's Midnight Magic 34.95 25.00 

Star Blazer 31.96 22.00 

Apple Panic 29.95 21.00 

TG Joysticks 59.95 44.00 

TG Game Paddles 39,95 29.00 

D.B. Master 229.00 165.00 

Joyport 74.95 54.00 

Escape from Rungistan 29.95 21.00 

Fly Wars 29.95 21.00 

Cannonball Blitz 34.95 25.00 

Frogger 34.95 25.00 

The Artist 99.95 72.00 

HI-RES Adv #5 ■ Time Zone 99.95 72.00 

Visicalc 3.3 250.00 199.00 

Visitrend/Visiplot (Special) 300.00 225.00 

Ribbit 29.95 21.00 

The Home Accountant 74.00 54.00 

Magic Window 99.95 72.00 

Screenwriter II 129.95 97.00 



lOpplG ^commodore 



-12 



Adventures 
WordStar 
DataStar 
Mailmerge 
Supersort 
SpellStar 
WordMaster 
CalcStar 
Basic Compiler 
Basic - 80 
dBase II 
SuperCalc 
Graham Dorian - 
Accounts Payable 
Graham Dorian - 
Accounts Receivable 



Temple of Apshai 

The Home Accountant Plus 

Mathemagic 

IBM Joysticl<s 

Visicalc 

Visicalc/256 K 

Deadline 

SuperCalc 



MANY MORE PROGRAMS AVAILABLE 



TERMS: Send check or money order 
for total purchase price, plus $2.00 
for shipping. Ml residents add 4% 
tax. C.O.D. accepted. 

® MFCS TRADEMARK 



Retail Discount 



A 

ATARr 



$129.00 
495.00 
350.00 
150.00 
250.00 
250.00 
150.00 
295.00 
'395.00 
350.00 
700.00 
295.00 



S 97.00 
350.00 
275.00 
100.00 
175.00 
175.00 
100.00 
190.00 
295.00 
260,00 
520,00 
225,00 



1000.00 720.00 
1000.00 720.00 



Retail OlsGOunl 



$ 39.95 $ 29.00 

150.00 110.00 

89.95 70.00 

64.95 48.00 

200.00 160.00 

250.00 200.00 

49.95 36.00 

295.00 220.00 



Attack Force (d) 

Galaxy Invasion (t) 

Invasion Orion (d) (t) 

Sorcerer of Siva (d) (t) 

Rescue at Rigel (d) (t) 

Crush, Crumble 8, Chomp (d) (t) 

Hellfire Warrior (d) (t) 

Galactic Trader (t) 

Galactic Trilogy (d) 

Le Stick 

Sargon II (t) 

Battle of Shiloh (t) 

Tigers in the Snow (t) 

Flight Simulator (t) 

Alien Armada (d) 

Adventures' 1-12 (Gold Edition) 



S 19,95 i 
15,95 
24,95 
29,95 
29,95 
29,95 
39,95 
14.95 
39.95 
39.95 
29.95 
24.95 
24.95 
25.00 
18.95 
(t) 100.00 



16.00 
12.00 
18.00 
22.00 
22.00 
22.00 
29.00 
11.00 
29.00 
29.00 
21.00 
18.00 
1B.00 
19.00 
14.00 
75.00 



SUPER SPECIALS 

Zenitln 12 " Green Ivlonitor S120.00 
Intec 32K Board (Atari) $85.00 



T=Cassette 
D = Disk 
C^Cartridge 



i\IAHI Ratal DscounI 


Battle of Shiloh (d) 


$ 39.95 


29.00 


Track Attack (d) 


29.95 


21.00 


Preppie (d) 


29.95 


21.00 


Shamus (d) 


29.95 


21.00 


Space Eggs (d) 


29.95 


21.00 


Clowns and Balloons (d) 


29.95 


21.00 


Rear Guar (d,t) 


24.95 


18.00 


Kayos (d) 


34.95 


25.00 


Temple of Apshai (d.t) 


39.95 


29.00 


PILOT (c) (Home Package) 


79.95 


60.00 


Frogger (d) 


34.95 


26.00 


K-Razy Kritlers (c) 


49.95 


36.00 


K-Star Patrol (c) 


49.95 


36.00 


Centipede (c) 


44.95 


33.00 


Star Blazer (d) 


31.95 


24.00 


Nautilus (d) 


29.95 


21.00 


Gorf (d) 


39.95 


29.00 


Wizard of Wor (d) 


39.95 


29.00 


Snake Byte (d) 


29.95 


21.00 


Cycled (d) 


29.95 


21.00 


Hodge Podge (d) 


19.95 


15.00 


Cavarns of Mars (d) 


39.95 


30.00 


Deadline (d) 


49.95 


36.00 


Apple Panic (d) 


29.95 


21.00 


Raster Blaster (d) 


29.95 


21.00 


Shooting Arcade (d.t) 


29.95 


21.00 


Pacific Coast Highway (d,t) 


29.95 


21.00 


Tigers in the Snow (d,t) 


39.95 


29.00 


The Shattered Alliance (d) 


39.95 


29.00 



M VISA AND MASTERCARD ACCEPTED F^ 



STROM as 



P.O. Box 197 
Plymouth, Mi. 48170 
(313) 455-8022 



SYSTEMS INC. 



WRITE OR CALL FOR FREE CATALOG 

PHONE ORDER HOURS 
4PM - 7PM MON. - FRI. 

INCLUDE CARD NUMBER 

AND EXPIRATION DATE WITH 

CREDIT CARD ORDERS. 

INCLUDE TYPE OF COMPUTER. 



ISSUE 8 



A.N.A.L.O.G. COMPUTING 



PAGE 19 



UTILITY#3: DISK TOOL 



16K DISK 



by Tony Messina 



Prologue 

I'd like to start this issue's utility by thanking all of 
you who have taken the time to write and express 
your ideas/comments about this series. I've been 
forced to purchase a larger mailbox to handle the 
volume of mail I'm getting. I LOVE IT!! Your 
responses to this series really make it a pleasure for 
me and make everything worthwhile. Many readers 
have asked me, "Why are you doing this?" The most 
asked question is, "What is the purpose of this 
series?" Well ... as I've mentioned before, you could 
run out and buy these utilities and spend anywhere 
between $10.00-$50.00. 1 like to think that the 
purpose of a magazine such as A.N.A.L.O.G. is to 
inform the reader as well as provide useful software. 
(Have I avoided the question?) Really though . . . the 
intent of any article I write, especially my utilities, is 
multipurpose. 

1) Provide something useful 

2) Explain how and why it works 

3) Present ideas clearly 

4) Enlighten the reader on the internal 
workings of the ATARI 

5) Encourage improvements on the basic idea 
and programs 

My routines may not be elegant and I rarely use any 
tricks. This seems to cause heartburn with some 
readers, as I get nasty letters — such as, "Why didn't 
you do X instead of what you did?" or "You could 
have made this a subroutine and saved some space!!" 
My first answer would be a very grateful "Thank you 
for showing me an alternate method." My second 
reply would be that, in the interest of clarity, I coded 
the program the way it was presented. I do tend to 
sacrifice coding efficiency for coding clarity. I'm 
simply following guidelines 3, 4, and 5. If the reader 
can understand the ideas and concepts behind the 
utility, he or she can certainly improve upon the con- 
cept by altering routines, adding error checking, im- 
proving output, making the program user friendly, 
etc. ...An average assembly language programmer 
could take the whole program and convert it all to 
assembly language. Again. . .the concept, the ideas 
. . .that is what I am presenting. For those who want 
to improve things, please be my guest. Those who 
don 'r care will get a reasonable utility to use and will 
get some understanding on how the ATARI operates. 
I encourage any questions or comments by letter or 
phone. If you've improved upon my utilities, I'd 



appreciate your input and a source listing. Thanks 

for all the letters and cards. Keep those ideas rolling! ! 

Back to Utility #3 Part 1 

I have received many letters asking about disk 
structures. "AHA!" (my devious mind senses 
another topic for a tutorial/utility.) Thus was born 
the DISK TOOL article. 

Disk Tool History 

My need for a disk utility made its appearance 
shortly after my disk drive arrived in March, 1981. 
(Yes ... I have the old clunker ROM version.) I was 
plagued with disk link errors and crashed files all 
over the place. To put it mildly, "Boy, was I really 
mad!" It was then I decided to write a program that 
would allow me access to any sector on the disk. To 
make a long story short, I got a copy of the DOS 1 
source listing and ATARI Tech Manual. I then locked 
myself in the den and proceeded to work. 50 gallons 
of coffee, two power outages and 5 billion phone 
calls to ATARI later, I emerged victorious. . .1 had 
actually managed to READ and WRITE to a disk 
sector without using the File Management System 
(FMS) or Utility Code in DOS 1. Yaaaayy!! 

When DOS 2 arrived on the scene, I converted the 
TOOL. I've been fiddling with it off and on for the 
past year and a half. Anyway, now that you know my 
life history (at least the last year or so), I'll move into 
the meat of this article, DISK STRUCTURES. One 
last thing. . .To keep the article as short as possible 
(there's really a lot to cover), I've broken it into two 
parts. This part will cover Disk Organization, Disk 
Sector Structure, Disk File Types and Disk Direc- 
tory Structure. The DISK TOOL program is virtu- 
ally unchanged from when I wrote it way back when. 
AND away we go . . . 

Disk Sector Structure 

The ATARI disk drive, in conjunction with the 
File Management System (FMS), organizes data on a 
diskette into blocks called sectors. There are 720 
sectors (numbered from 0-719) on each diskette 
after it is formatted by the Disk Operating System. 
The sectors are laid out on what are known as tracks. 
There are 40 tracks per diskette, each containing 18 
sectors. To clarify the last two statements, I have my 
patented "Formatted Diskettes are like onions" dog 
and pony show. Next time you cut an onion in half 
(when you make onion rings, mushrooms and 
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onions, or whatever), lop off a hunk in the middle 
about 1/4 inch wide. Now turn the onion so that the 
big round part faces you. Each individual ring of that 
onion is exactly similar to a track on the diskette. Go 
ahead, pull off the outer ring. Now if you cut that 
ring into 18 equal pieces, each piece would represent 
a sector. The outer ring is track 0. As you move 
inward, the next ring is track 1 and so forth, until you 
reach track 39. Each track would contain 18 sectors. 
Track contains sectors 0-17; track 1 has sectors 18- 
35; etc.... So now you have the idea of how a 
diskette is organized. DISK TOOL is designed to 
work at the sector level. Although there are 720 
sectors to each diskette, not all sectors are available 
to you, the user. 

You Wondered Where the Sectors Went? 

You've just formatted a diskette. Ahhh, the feeling 
of power, 720 sectors to store all of your programs. 
You hit the A OPTION in DOS (just to see that 
magic number, 719). Upon hitting RETURN, the 
number 707 appears. What??!! What happened? 
Well, it's quite simple, friends. Although there are 
720 sectors, only 707 are available for your use. The 
other sectors are allocated for use by DOS. The Disk 
Directory steals 8 sectors, starting at sector 361 and 
running to 368. One sector (360) is allbcated for the 
VTOC (Volume Table of Contents, pronounced 
"Vee-Talk"). We'll talk about the VTOC next 
issue. The Boot portion of FMS also occupies 3 
sectors (1, 2, 3). That's what happened to your 12 
missing sectors, so don't be alarmed. With that out 
of the way, it's time to discuss the different types of 
sectors. Yes. . .1 know it sounds confusing. . .after 
all, isn't a sector a sector? The answer is yes. Each 
sector is capable of holding 128 Bytes of Data. The 
manner in which the Data is structured on a sector is 
dependent on a particular sector's purpose or type. I 
like to define the sectors as being of 4 types: 

1) Data Sector: Containing program informa- 
tion, text files, etc. 

2) Boot Sector: Containing ML Program Data 

3) Directory Sector: Containing program 
names and associated Data 

4) VTOC Sector: See next issue 

Let's take a look at the differences and similarities 
of each. 

Data Sectors 

These are the most common type of sector on 
your disk. Technically, all sectors are Data sectors. I 
use this name only to distinguish its format from 
other types of sectors. Whenever you use the com- 
mands: SAVE "D:XXX", LIST "D:XXX" or invoke 
the Binary Save Option from DOS, the actual 
programs are written to the disk in Data Sector 
Format. The format is quite simple. Bytes 0-124 
contain Actual Program Data. Bytes 125-127 con- 
tain Sector Identity Data or Link Data. Figure 1 illus- 
trates this type of format. 












124 125 127 


1 25 Bytes of Program Data 






1 Linl< 
1 Data 


_^, Byte 125* 


Byte 126 


- " 




i 

1 

Byte 127 


File # 1 ' 
ttiis sector 1 1 1 
belongs to | | 


1 1 1 1 1 1 

7|6l5l4|3|2|l 

1 1 1 1 1 1 


°l 


(0 


<* of actual bytes 
- 70) in tills sector 



10 Bits 



Next sector of tills file 



FIGURE 1 

Notice that the lower 2 Bits of Byte 125 and all of 
Byte 126 are combined to point to the next physical 
sector of this file. A zero (0) indicates that this is the 
last sector of a file. One variation in Data Sector For- 
mat occurs when the Binary Save Option is used to 
save an area of memory to the disk. The variation 
occurs with the first 6 Bytes of the first sector of the 
Binary File Data. Those 6 Bytes are commonly re- 
ferred to as the "Binary File Header." The Header is 
formatted as per Figure 2. 



Byte 



LSB 
Start addr 



MSB 
Start addr 



LSB 
End addr 



MSB 
End addr 



FIGURE 2 

If, for example, you answer the Binary Save 
Prompt in DOS with "MLPROG,0600,065F", then 
the first 6 Bytes of the first sector of disk storage for 
this program would look like Figure 3. 



Byte 



FF 


FF 


CO 


06 


5 F 


06 



Binary file 
definition bytes 



Start addr 
LSB/MSB 



End addr 
LSB/MSB 



FIGURE 3 

In our example above, only one sector would be 
needed to save our program, since it isn't longer than 
125 Bytes. Now that we know about Data Sectors, 
let's move on to Directory Sectors. 

Directory Sectors 

There are 8 Directory Sectors, starting at sector 
361 and running sequentially to sector 368. The 
Directory contains the names of all the programs on 
the diskette, along with other information about the 
program. Each Directory entry, program name and 
miscellaneous information uses 16 Bytes. There is 
enough room to hold 8 program names (and asso- 
ciated data) on 1 sector. (16 Bytes * 8 names = 128 
Bytes or 1 sector.) Therefore, with 8 sectors avail- 
able, we can have (8 sectors * 8 names per sector) = 
64 possible file names total. Of course, the size of 
each file will vary, so several large files may take up 
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the entire disk. Anyway, the Directory sectors do 
not have any link Data. On a Directory read, DOS 
starts at sector 361 and keeps reading sectors until 
there are no more names. Directory entries have the 
following format: 



Entry 


Entry 1 


• 


Entry 7 



Byte 

Directory 
entry 



Directory sector 
5 12 13 15 



Status 
byte 



Length 

(in sectors) 

LSB 



Length 
(in sectors) 

MSB 



Start 
sector 

LSB 



Start 
sector 

MSB 



Filename 

(primary) 

or space 

($20) 



Ext 
or 

($20) 



Bits^ 


7 


6 


5 4 


3 ~ 


~ 2 ~ 


~ 1- 


-% 


Status 
byte 


File 
deleted 


File 

in 

use 


•=''«! Spare 
locked] 


File 
in 
use 


Spare 


DOS 
2 
file 


File 
open 

for 
output 



FIGURE 4 

STATUS NOTE: Bits set (=1) indicate condition 
listed. 

Bits 1, 5, 6 set. 

Bits can be combined for multiple status. 
Example: Bits 1, 2, 3, 4, 5 set would mean file was 
created by DOS 2; it is in use and locked. 

Here is a quick reference to the possible status 
values. 

$00 = file never used 

$01 = file open for output 

$02 --= file created by DOS 2 (if Bit 
not set, assume DOS 1 ) 

$20 = file locked 

$40 = file in use 

$80 = entry deleted 
That's all there is to Directory Sectors. How does 
DOS use the information we have discussed so far? 
In simple terms, when you type in LOAD "D:XXX" 
or RUN "D:XXX" in BASIC, the EMS opens the 
Directory for input, reads in the Directory sectors 
starting at sector 361 and searches for a match. 
When it finds a Directory Entry that matches the 
program name you asked it for, the EMS (Eile Man- 
agement System) extracts the starting sector from 
Bytes 3 and 4 of the entry and also the length from 
Bytes 1 and 2. FMS then positions the READ/ 
WRITE head of the disk drive at that sector, reads in 
the sector, extracts the link information (to find the 
next sector) and checks to see if this sector actually 
belongs to the file you wanted. If it does, then EMS 
checks to see if this is the last sector to load. (Re- 
member, the next sector to load is in the link Bytes.) 
FMS keeps loading until the next sector to load is 0. 
If, during this process, the file number of the sector 
just loaded does not match the one you are looking 
for, a Eile Number Mismatch Error occurs. This 



usually means that either the disk link information 
of the previous sector was incorrect, or possibly the 
link Data of the current sector is incorrect. We'll 
discuss how to fix this in the follow up article next 
issue. 

Boot Sectors 

I use the term Boot Sector Format in referring to 
files which start at sector 1 and run contiguously to 
sector X, where sector X is the ending sector. These 
files do not need any language cartridges or DOS and 
are completely self contained programs which load 
and execute upon powering up the computer. Do not 
confuse these with AUTORUN.SYS files. Remem- 
ber the header Bytes for Binary files saved using the 
Binary Save Option of DOS? Well, Boot Sectors 
have a similar structure. Sector 1 of the disk contains 
the magic header information which is structured as 
per Figure 5. 



Byte 



O by 
tradition 



# of 
sectors 
to load 



LSB 
Load addr 



MSB 
Load addr 



LSB 
Init addr 



MSB 
init addr 



Boot sector header (sector 1) 

FIGURE 5 

Whenever you turn on your cc^mputer, a check is 
made to verify if any cartridges are present. If a car- 
tridge is present, the "Allow Disk Boot Bit" (Bit Oof 
location $BFED) is checked. If it is zero (as it would 
be if no cartridge were present), then the ROM Boot 
Routine is invoked. This routine goes out to sector 1 
of the disk, reads in the Data contained there and 
interprets it. Byte 1 tells the system how many sec- 
tors to read. Byte 2 and 3 tell the system where to 
load the Date, and Byte 4 and 5 tell the system where 
to start executing the ML program once it is loaded. 
Boot sectors do not have any link Data, and conse- 
quently each boot type sector can contain 128 Bytes 
of program information. I said "can" because the last 
sector may be a short sector (contain less than 128 
Bytes). The FMS for DOS 2 contains 3 boot sectors 
worthy of program Data. 

Well, that about wraps up our discussion on disk 
Data structures. I realize I've clobbered you with 
many new concepts and material. The best way to 
digest this information is to use the DISK TOOL 
experiments which follow. First take a break, then 
we'll discuss DISK TOOL and do some "hands on" 
experimenting. 

Disk Tool Structure 

You may have noticed that DISK TOOL consists 
of 3 programs. . .an Autorun.Sys creator program, a 
Machine Language Loader and the Actual BASIC 
Code. Why 3?? Well, in order to make DISK TOOL 
fit into a 16K disk drive system, I decided to load the 
ML portion separately from the BASIC program. 
That really is the only reason. I didn't want any disk 
drive owners left out because he or she didn't have 
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more than 16K or memory available. DISK TOOL 
sets itself up as follows; 

1 ) Protect 1500 Bytes of low end memory and 
disable the break key (via Autorun.Sys) 

2) Load the ML portion of DISK TOOL into 
the protected area and load DISK TOOL 
BASIC Program 

3) Execute DISK TOOL BASIC 

Since I believe it is more important (at least this 
issue) to know how to use this utility, I won't get into 
a long winded dissertation about how it works. (As if 
1 haven't been long winded in this article.) If you 
study the listings, you should he able to get a fairly 
good understanding of what is going on. If time and 
space permit, I will discuss the program function at 
the conclusion of the next issue's article. 

Warnings: 

DISK TOOL will happily allow you to wipe out 
your directory, the VTOC, DOS Boot Sectors or 
any other sector on your disk, even if the file is 
locked!! It will ask you to verify prior to writing, but 
once a sector has been written, it may be too late. 
You don't need to be an advanced systems program- 
mer to use DISK TOOL. . .only a careful program- 
mer. It is suggested that you don't even use the write 
function until next issue, when we'll discuss things 
you can do with DISK TOOL. OK, warnings are 
behind us; let's move on. 

Getting Things Together 

The first thing to do is to get a new diskette, format 
it and write out DOS 2 to the diskette. Type the list- 
ings in order from program 1 to 3. Save all programs 
to the disk. Suggested names follow: 

1) Autorun.Sys Maker MAKAUTO.UTL 

2) ML Loader DSKTOOL.RV3 

3) Disk Tool BASIC DSKTOOL.PT2 

These are only suggestions. If you decide to 

rename the BASIC DISK TOOL portion, you must 
change the RUN command in the ML LOAD pro- 
gram so that you don't get a file not found error. Run 
the Autosys maker first so it can create the Autosys 
file. Power down, power up with the same disk and 
type RUN"D:DSKTOOL.RV3". 

Using DSKTOOL. . .(finally!!) 

I know everyone has DSKTOOL running. (Those 
of you who don't, keep trying.) The first thing you 
will see is the Command Menu and a "COMMAND 
OR SECTOR NUMBER" prompt. To examine any 
sector, just type in the number and hit RETURN. 
Only sectors 1-720 can be examined. Any number 
1 or 720 will generate an error message. Sector 
numbers can be entered in either Decimal or Hex (if 
preceded by a $). Let's try it out. Put in any of your 
program diskettes. 

Experiment 1 (look at directory sector) 

Answer the prompt with 361 and hit RETURN. 
You will see the first sector of the directory. 



Compare each entry with the format of Figure 4. 
Once you feel comfortable with the format of the 
directory, move on to the next experiment. 
Experiment 2 
(look at formatted directory output) 
Answer the COMMAND OR SECTOR NUM- 
BER prompt with a D and hit RETURN. A for- 
matted display should appear. All numbers appear in 
Hex notation. This option displays 2 sectors worth 
of directory Data (16 program names). The sector 
number is the actual sector at which that directory 
entry resides. Filename is self explanatory. Start is 
the first disk sector which contains Data pertaining 
to that program. LEN is the length or number of 
sectors that file contains. FIL# is the entry number in 
the directory for that file, and finally STAT is the 
file's status in human, readable form, where: 

* = file locked 

U = file is used 

D = file has been deleted 

1 = file created by DOS 1 

2 = file created by DOS 2 

To examine more directory sectors, hit + and 
press RETURN. The new sectors will appear. To 
abort the directory format, just hit RETURN and 
our friend "COMMAND OR SECTOR NUM- 
BER" will appear. 

Experiment 3 (trace/examine a file) 

Perform Experiment 2 and abort the directory 
format simply by hitting RETURN. The 
COMMAND OR SECTOR NUMBER prompt 
should appear. Now find a file you want to examine 
from the directory listing. (Try one other than 
DOS.SYS or DUR SYS.) Find the start sector 
number for that file under the start column. Since 
the start number is in Hex, type & followed by the 
number. You don't need to type in leading zeros. If, 
for example, the start number was GOBF, then type 
$BF, for OICD type $1CD, etc. Then hit RETURN. 
The sector will appear in HEX/ATASCI format 
along with the sector number, next sector and file 
information. Sector number indicates the current 
sector number being displayed. Next sector points to 
the next sector containing Data for this file. File 
number is the file number to which this sector 
belongs. The next sector does not have to be the 
current sector number + 1 . If a diskette has had files 
deleted and then new files added, a particular file's 
sectors may be scattered all over the disk. When you 
are ready to look at the next sector, you can enter the 
number and hit RETURN. If the next sector 
happens to be the current sector +1 just hit 
RETURN or + and RETURN. If you want to look at 
the current sector -1 type - and RETURN. Trace 
your file, examining the format of the Data. 
Remember Figure 1. Try to look at all types of files, 
Binary, Save Files, ASCII files etc. and compare these 
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with the appropriate figures. When you hit the end 
of a file, you'll see that the next sector pointer will 
equal zero. 

Experiment 4 (change Bytes) 

Call up sector 720 on the disk. If it is all zero's, 
then you can use it. If it isn't all zero's, type - and hit 
RETURN until a sector is displayed with all zero's. 
At the prompt COMMAND OR SECTOR 
NUMBER, type in C and hit RETURN. The screen 
should change to yellow and a prompt should 
appear. Move the cursor (ctrl up, down, left, right, 
arrow etc) to the 1st Hex value in the Byte 00 line. 
Replace the 00 values with the following: 
47 4F 4F 44 20 4A 4F 42 

Then hit RETURN. Make sure you overwrite 
each value of 00 and space between each Byte. If you 
have done everything correctly, you should see a 
"secret message". Change Byte only changes 
memory locations. Nothing has been written to the 
disk. 

Experiment 4A 
(Change Bytes ATASCII METHOD) 

Follow the procedure in EXPERIMENT 4. To 
change bytes, move the cursor over to the hex 
parameter you wish to modify. Hit the space bar to 
blank out the first parameter of the hex number. 
Now type the ATASCl letter or number that you 
want. Continue with the rest of the line, always 
remembering to precede the character you want with 
a space. Hit return and check your work. If the 
ATASCl column does not reflect your desires, try 
again. 

Experiment 5 (writing to the disk) 

As 1 mentioned previously, writing to the disk can 
be dangerous. Be careful! ! Sector 720 should be safe. 
Why? Well, there is a bug in DOS. DOS can only 
handle sector numbers from to 719. The disk 
drive, however, will only accept commands for 
sectors 1-720. Some software developers have taken 
advantage of this useful quirk. Don't write to 720 if 
something was there. If all was OK and you did 
experiment 4, push RETURN. Now type W and hit 
RETURN. The screen will turn red and a verify 
prompt will appear. Answer Y to the prompt if you 
are sure you want to write to the disk. When the 
write is complete, the screen will turn green again 
and we're back to the COMMAND OR SECTOR 
NUMBER prompt. Recall sector 720, or the sector 
which you wrote, just to check what was written. 

What can we do right now? 

One item you can fix right now and the procedure 
using DISK TOOL is outlined below. 

PROBLEM: Two files on a disk with the same 
name. 

REASON: You renamed a file to a name that 
already existed. 

FIX: Call up the directory of the disk using the D 



command. Find the file you want to change the name 
of. Hit RETURN. Get the sector number of the 
directory where the file name resides, from the SEC 
# column. Call up this sector by typing $XXXX 
where XXXX is the sector number. Find the file 
name ATASCl. Hit C for change Byte and 
RETURN. Move the cursor up to the line of the file 
name Hex values. Using the ATASCl change 
procedure from EXPERIMENT 4A, change the file 
name and hit RETURN. Check to see that the name 
is correct. When everything is to your satisfaction, 
write out the sector to the disk. 

That's all for now. We've covered a lot of ground. 
One suggestion is to play around, examining sectors, 
formats and structures. Refer to the Figures and 
enjoy. Next issue we will discuss the VTOC. We'll 
also add a File Sector Trace, Sector Allocation Map 
Dump, Screen Dump to Printer and Change Links 
Function to make DISK TOOL more useful. Till 
next issue . . . Keep hacking and may all your sectors 
be full. D 

PROGRAM 1 



16 GR0PHICS_2jyL6 



ANALOG 4ee/880 
D5KT00L,RU3 
, autorun.sg s 

H 







15 ? »6;" 

26 ? t»6;" 

25 ? «6;" 

36 ? It6;" 

35 ? »6;" 

46 ? tie;" 

45 ? nSi" 

56 ? tie;" hit any hey to":? tl6;" ere 

ate AUT0RUII.5V5":? «6;" file" 

66 OPEN ttl,4,0,"K:" 

65 GET ltl,A 

76 CL05E 111 

75 ? tt6;" aSSQBDEHaS" 

86 OPEN »1,8,6,"D:AUT0RUII.SYS" 

85 PUT ttl,255:REH HEADER $FF 

96 PUT ttl,25S:REM HEADER SFF 

lee PUT ttl,8:REM LOAD START LSB $88 

185 PUT ttl,e:REH LOAD START MSB $86 

118 PUT ttl,74:REH LOAD END LSB $4A 

115 PUT ttl,6:REM LOAD END MSB $66 

120 READ A:IF A=999 THEN GOTO 148 

123 REM «» NOW PUT OUT REST OF PROG ** 

125 PUT ttl.A 

138 GOTO 120 

148 CLOSE ttl 

168 POSITIOM 3,10:? t»6;" FILE l«ITTEN" 

178 GOTO 178 

1888 DATA 24,173,231,2,185,228,141,231 

,2,173 

1682 DATA 232,2,185,5,141,232,2,169,8, 

133 

1884 DATA 8,32,27,6,76,6,166,128,173,2 

2 

1686 DATA 2,141,66,6,173,23,2,141,61,6 

1888 DATA 169,52,141,22,2,169,6,141,23 

,2 

1618 DATA 88,96,72,173,14,218,16,4,184 

,76 

1612 DATA 59,6,169,127,141,14,218,165, 

16,141 

1814 DATA 14,216,184,64,8,226,2 

1816 DATA 227,2,8,6,224,2,225,2,8,6 

1618 DATA 999 

1828 REM mcmtmmKMMmiMMMMim 

1822 REM K END AUTORUN.SYS* 

1824 REM * LOADER PROG # 

1626 REM KMKMMMMWXmtMKMMXMM 
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D: CHECK DATA 

*2,9*P 442,478,615,797,549,86,737,481 

,771,286,465,558,511,194,597,7487 

98 DftTO 511,325,357,489,318,353,235,49 

5,698,762,8,518,567,276,235,6959 

Sri35?Jg5?iji:i5ir'"^«'^«*''*^'^2»'^ 



PROGRAM 2 



5 GRAPHICS 2+16:P0KE 712,14:P0KE 789,1 
82: POKE 708.202 



presents 
u tili t y tt3 

rafiJTa afr~ 



sc 




18 ? U6;" »«»»«««»»««»««" 

20 ? tt6;" ANALOG 488/880^" 

38 ? tt6;" " 

48 ? tie;" 

58 ? «t6j" 

68 ? B6;" 

78 ? «6J" 

88 ? I»6;" TOWV MESSINA" 

98 ? tt6j" ^aEBSEmsMiaMEi" 

188 AREA=7428:REH )H(ML SAVE AREA *» 

118 POKE 711,14:READ K : IF X=999 THEN P 

OKE 755, 2: GOTO 125 

129 POKE 711,e:P0KE AREA, K : AREA=AREa+l 

:GOTO 118 

125 ? «6;" loading dsktool .utl":RUN "D 

.■D5KT00L.PT2" 

138 DATA 32,83,228,48,51,173,142,29,28 

8 J 69 

132 DATA 32,145,29,32,58,30,173,34,30, 

134 DATA 27,30,32,187,29,162,8,160,0,1 
89 

136 DATA 253,3,32,255,29,32,234,29,32, 
36 

138 DATA 30,32,198,29,32,43,30,200,192 

i48 DATA 248,29,232,76,25,29,140,138,2 

142 DATA 122,4,72,41,3,141,143,29,184, 

144 DATA 74,141,144,29,160,0,140,34,30 

146 DATA 96,142,35,30,138,56,233,7,170 
/ 238 

148 DATA 35,30,189,253,3,32,287,29,142 
, 141 

158 DATA 29,32,164,246,174,141,29,232, 
236,35 

152 DATA 38,288,235,169,155,32,164,246 
174 35 

154 DATA 30,224,128,176,198,32,50,30,3 

156 DATA 30,32,187,29,160,0,174,35,30, 

158 DATA 25,29,8,0,0,0,8,0,8,162 

160 DATA 0,189,166,29,240,13,142,139,2 

3 32 

162 DATA 164,246,174,139,29,232,56,176 

,238,96 

164 DATA 125,66,89,84,69,35,127,127,72 
, 69 

166 DATA 88,127,127,65,84,65,83,67,73, 

168 DATA 8,32,198,29,169,32,32,164,246 
,96 

178 DATA 41,15,201,10,48,2,105,6,185,4 

A72 DATA 96,281,32,144,28,201,125,144, 

174 DATA 128,144,12,281,155,144,18,201 
, 160, 144 

176 DATA 4,201,253,144,2,169,46,96,32, 
36 

253 tV^ 58,173,254,29,32,164,246,173, 

^25^515 32,164,246,32,43,38,96,8,8,72 
182 DATA 74,74,74,74,32,196,29,141,254 

484 5«TA 104,32,196,29,141,253,29,96,1 



186 DATA 30,24,105,8,141,34,30,32,255, 

29 

188 DATA 32,234,29,96,8,8,142,139,29,1 

48 

198 DATA 140,29,96,174,139,29,172,148, 

29,96 

192 DATA 169,62,32,164,246,169,36,32,1 

64,246 

194 DATA 96,104,104,133,206,104,133,20 

5,160,2 

196 DATA 177,205,72,200,177,205,32,149 

,30,141 

198 DATA 148,30,104,32,149,30,10,10,10 

,10 

200 DATA 13,148,38,178,24,185,8,141,14 

1,29 

202 DATA 288,280,200,177,205,201,32,20 

8,5,280 

204 DATA 177,285,208,21,72,280,177,205 

,32,149 

286 DATA 30,141,148,30,104,32,149,30,1 

0,18 

208 DATA 18,10,13,148,30,157,253,3,232 

,236 

218 DATA 141,29,144,213,72,76,6,29,0,5 

6 

212 DATA 233,48,281,10,144,2,233,7,96, 

214 DATA 52,29,32,255,29,32,234,29,96, 
32 

216 DATA 83,228,48,241,169,253,133,205 

,169,3 

218 DATA 133,286,160,5,162,0,177,205,1 

57,215 

220 DATA 31,208,232,224,11,144,245,168 

8 177 
22i DATA 285,141,230,31,200,177,205,14 
1 229 31 

224 DATA 208,177,205,141,228,31,289,17 
7,205,141 

226 DATA 227,31,280,177,285,141,226,31 

J 44 J 230 

228 DATA 31,16,8,169,68,141,231,31,76, 

24 

238 DATA 31,80,37,169,85,141,231,31,16 

<j 32 

232 DATA 44,238,31,248,5,169,42,141,23 

3,31 

234 DATA 169,2,44,238,31,240,8,169,50, 

236 DATA 232,31,76,24,31,169,49,141,23 

2,31 

238 DATA 173,11,3,32,162,30,173,10,3,3 

248 DATA 162,30,32,190,29,162,0,189,21 

242 DATA 32,36,30,32,164,246,32,43,30, 

244 DATA 224,11,144,239,32,187,29,173, 

226,31 

246 DATA 32,162,30,173,227,31,32,162,3 

248 DATA 187,29,32,190,29,173,228,31,3 
2,162 

258 DATA 38,173,229,31,32,162,30,32,18 

252 DATA 32,190,29,173,237,31,32,162,3 

254 DATA 187,29,162,2,189,231,31,32,36 

256 DATA 32,164,246,32,43,30,169,32,15 

258 DATA 31,202,16,236,238,237,31,238, 
236, 31 

||e POTA 169,8,205,236,31,240,22,165,2 

262 DATA 105,16,133,205,144,2,230,206, 
169,155 

264 DATA 32,164,246,32,198,31,76,182,3 
8 J 169 

266 DATA 155,32,164,246,173,10,3,24,10 

268 DATA 141,18,3,144,3,238,11,3,162,9 
278 DATA 142,236,31,173,235,31,288,17, 
238^ 235 

272 DATA 31,76,169,38,162,11,169,32,15 
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274 DATA 31,202,288,256,56,206,235,31, 

276 DATA 29,0,0,6,0,0,0,0,0,0 
278 DATA 0,8,8,0,0,0,32,32,32,32 
288 DATA 3^^,6,6,6,6,6,949 



D: CHECK DATA 

5 DATA 355,844,811,79,882,872,711,341, 

260,448,347,8,84,917,437,7388 

132 DATA 508,322,250,556,640,222,576,7 

47,397,738,929,654,336,485,693,8853 

162 DATA 783,490,416,436,287,724,799,5 

32,885,240,574,671,205,561,672,8275 

192 DATA 748,981,703,367,562,920,675,5 

46,683,81,523,325,757,771,711,9353 

222 DATA 811,950,887,281,630,672,572,4 

20,268,682,589,887,369,860,375,9173 

252 DATA 619,459,553,705,854,686,928,5 

62,249,682,896,597,161,482,733,9158 



PROGRAM 3 

10 REM KmCMKXKMlCMMmtMMMMKMlClCKKKKlCltMMK 
15 REH » DISK TOOL BASIC PROGRAM * 
20 REM « BV TONY MESSINA CCJ1982 » 
25 REM mCMKMKMKMKKMIClClCMMKMMMKIClCMKIOCmt 
38 POKE 82,0: REM »»LFT MAR TO *** 

50 DUNIT=769 : DC0MM=778 : DAUK1=778 : DAUX2 

=779:GSEC=82:PSEC=87:DBYHI=777:DBVL0=7 

76 

78 DIM A$C29),ANS(1} 

lie TRAP 718 

138 REM *WBf SET UP DISK VECTOR TABLE 

If MW If 

158 POKE DUNIT,l:REM ** DRIVE 1 

170 POKE DCOMM,GSEC:REM «« FOR READ 

198 POKE DAUXl,l:REM »» SECTOR 1 ** 

218 POKE DAU}<2,8:REM ** NULL a* 

238 POKE 772, 253: REM *Ht LOW BUF ADR C$ 

FD)»» 

250 POKE 773, 3: REM »*HI BUF ADR CS83J 

278 POKE DBYL0,127:REM ** GET 128 BYTE 

S CI SECTOR) «» 

290 POKE DBYHI,e:REM «» NO HI «t 

308 GOTO 2000 

330 REM *** OK..CLR SCREEN AND ASK FOR 
SECTOR *** 

370 ? 
UT A$ 

371 GRAPHICS 0:REM «»CLEAR SCREEN** 

372 POKE 712,ie:P0KE 709,0:P0KE 710,21 
4 

380 IF A$="H" THEN GOTO 2000 

390 IF A$="+" OR AS="" THEN 5ECNUM=SEC 

NUM41:G0SUB 630:6010 490 

418 IF ASC1,1J="-" THEN SECNUM=SECNUM- 

1:G0SUB 678: GOTO 490 

438 IF AS="M" THEN GOSUB 758: GOTO 378 

458 IF AS="C" THEN GOSUB 1030: GOTO 370 

452 IF AS="D" THEN GOTO 5888 

460 IF A$C1,1)="$" THEN GOSUB 4000 

470 SECNUM-VALCA$1 : IF SECNUM<1 OR 5ECN 

UM>72e THEN ? " QCEEDBQB^aiQHSX) 

498 SECH1=INT tSECNUM/256J :SECLOM=INT CS 
ECNUH- t5ECHI»256 J J 

510 POKE DAUX1,SECL0M:P0KE DAUX2.SECHI 
538 X=U5R 174203 : REM *» GO DO IT *» 
558 IF PEEKC7562) THEN ? "S3aiM313^ 
ggryg " ; SECNUM: poke 7562,0:G0T0 378 
568 IF SECNUM<369 AND SECNUM>368 THEN 
? "^ ItUa atiiiil ;imi ** Jtl a ■•;SECNUM:GOTO 3 
78 , 

578 ? " M jifciiifMJM " ■ sFnMiiM ! ■■ » unayaaiB 

»EEKr 
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; :INP 



598 ? "lllIIIBBH";PEEKt7568) 

610 GOTO 370 

630 IF SECNUM>720 THEN SECNUM=1 

650 RETURN 

670 IF SECNUM<1 THEN SECNUM=720 

690 RETURN 

710 ? " M W»iT!l^i;iatt«rt " ; POKE 7e9,0:P0 

KE 710,214:TRAP 710:GOTO 370 

730 HEM *H* WRITE SECTOR TO DISK *** 



ISCURREHT SECTOR IS ==> 
ISSURE ABOUT WRITE CY/N) 



"; SECNUM 
"; :INPUT 



WRITE ABORTEDISIS 



WRITTEN 
'^DISK WRITE E 



; (PEEK C7567J»256) +PEEK C1147) 



750 POKE 710,64 :POKE 709,10 

755 X=USRt7438] 

768 GOSJLB 3088 

770 ? 

798 ? 

AN$ 

818 IF AN$<>"Y" A ND ANS<>"N" THEN ? "> 

l>T!i:irn;li]iip »i;ia'llil" ■ '^"T" 958 

838 IF ANS="N" THEN ? 

":G0T0 950 

858 POKE DC0MM,PSEC:P0KE 7566,1 

870 X-U SR(742fl J 

898 ? "gSMEinal"; SECNUM; "I 

910 IF P EEK (7562i THEN ? 

QEnQDBDQ":POKE 7562,8 

930 POKE DCOMH,GSEC:POKE 7566,0 

950 POKE 709,e:P0KE 710,214 

970 AHS="" 

990 RETURN 

1010 REM *»« CHANGE BYTES ROUTINE »*« 

1838 POKE 710,26 

1831 X=USR(7438) 

1032 GOSUB 3000 

1848 ? "QNOVE CURSOR TO BYTES, CHANGE, H 

IT RETURN" 

1858 INPUT AS 

1870 IF A$-"" OR LENCASX 26 THEN ? "HI 

IHHf!l^<:iaHMia:)*l.-M;ianil:i:i " : ; GOTO 1178 

1090 POKE 710,26 

1110 LINBUF=ADRCA$> 

1130 X=U SRC7741.LINBUF> 

1150 ? "l^T^lf^■a!^ 'hi-BBi^ *^J**'^:^'Xl■lM 

[aHaniaz"; ^ 

1178 INPUT A$ 

1190 POKE 710,214 

1218 RETURN 

2880 GRAPHICS 1;P 0KE 710,2 14;? It6 : "^M 

■■■■■■■■—— ";? tt6j" EBSa klililj 93 

2885 ? H6 ; " M—— — —— WK ' 

2818 ? «6;"n READ NEXT SECTOR":? tt6:"B 

READ PREVIOUS SEC":? tt6;"[iRITE SECTOR 

TO DSK" 
2020 ? tt6;"BHANGE SECTOR BYTES":? tt6;" 
ClELPCSHOH COMMANDS]" 
2030 ? »6;"13IRECT0RY LIST" 
2898 ? "«":GOTO 370 
3000 POS ITION 0,17 
3010 ? "EXUU" 
3030 POSITION 0,17:RETURN 
4888 N=8 

4083 FOR 1=2 TO LEN(A$) 
4805 IF A$(I,I3<"8" THEN GOTO 4188 
4810 IF AStI,I)<="9" THEN N=N*16+VAL(A 
SCI,I}) :GOTO 4050 

4015 IF ASCI,IJ<"A" or AStI,I)>"F" THE 
N 4180 

4820 N=H»16+ASC IAS CI , I) ) -ASC C"A"J +10 
4058 NEXT I 

4860 AS= STRSCN> : RETURN 

4188 ? " »;L'/i1»<«il4M J-linTTJiaH " ; POP :G0 

TO 378 

5800 POKE DAUX2,l:P0KE DAUX1,185 :REM * 

* SET SECTOR 361 FOR READ 

5882 SECN UM=3 61 

CD [MOE aaSIr 

5028 K=USRC7849] 

5822 SECNUM=SECNUM+1 

5836 ? :? " GBH RETURN ^fJfciMJ I + Q 

aoosacQ"; ^ 

5848 INPUT ANS 
5850 IF AN$="+" THEN 5610 
5868 ANS= "":P0KE 8173.0 
5865 ? "►[ 
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see? INPUT AS 

5968 IF AS="" them GOTO 5075 

5878 IF fl$ tl.U="HI" OR ft$Cl.H="C " THE 

N ^ " » »:i J;Ii1Jai;aMii;H jyBiM;itHi*lirLLi " ! GOT 

5865 

5075 GOTO 380 



D: CHECK DATA 

10 DATA 771,708,417,788,809,486,463,51 
•,770,963,175,386.429,885,494,9854 
270 DATA 292, 555, *40, 727, 323, 866, 535, 5 
85,980,345,486,510,582,932,488,9866 
490 DATA 738,363,112,715,464,302,301,5 
85,398,814,240,708,73,433,175,6341 
755 DATA 106,851,491,382,314,238,27,10 
7,209,674,99,504,311,717,670,5788 
1030 DATA 25,63,929,168,817,643,43,460 
,936,197,789,991,786,239,548,7634 
2010 DATA 261,286,788,331,412,791,712, 
173,899,963,659,281,948,495,45,8044 
4100 DATA 18,958,305,363,164,952,506,7 
96,77,908,243,831,364,338,788,7611 



Next issue (A.N.A.L.O.G. Computing No. 9) 
we will be presenting Part 2 of "Disk Tool," 
the third in a series of utility programs by 
Tony Messina. 




The First and Only System to 

Backup Diskettes Protected 

By Bad Sectoring. 




INTRODUCTORY PRICE 

95 



$49J 



OTHERS MAKE CLAIMS.. 

SUPERCLONE MAKES 

COPIES!!! 



ATARI DISK BACKUP 
SYSTEM 

Sijperclone is thie only ATARI diskette copier 
system that lets you backup just about ANY 'copy 
protected' diskette. . .including those protected 
by 'bad sectoring.' Bad tracks and sectors are 
created without modifications to your hardware. 
Each backup diskette generated by Superclone 
functions exactly like the original. . .self-booting, 
etc. (In fact, we suggest that you use the backup 
and save the original.) 
Superclone includes: 

SCAN ANALYSIS - map of diskette contents 

(location of data, bad sectors, etc ) 
FORMATTING/BAD SECTORING - 

Non-ATARI DOS formatting and bad track/ 
sector creation. 
BACKUP - copies just about everything we can 
find. . .regardless of protection scheme. 
Superclone is user-friendly and simple to use. (Pirates take note: Superclone only 
allows two copies to be made of any specific diskette. , .Sorry!!!) Requires 32K. 
Available at your computer store or direct from FRONTRUNNER. 
Include $2.00 Shipping for each system. 
DEALER INQUIRES ENCOURAGED 

ATARI SOFTWARE EXCHANGE 

We are gathering public domain Software to be exchanged among users. 
Programs are distributed for only a trivial handling charge. Categories include; 
Games. Education, Home, Business, Utilities, Special Languages, etc. Han- 
dling charges waived for program contributors. Please send programs on tape 
or disk only. For latest listing send $1.00 and SASE. 

TOLL FREE ORDER LINE: 

1-800-648-4780 

In Nevada or for questions 
Call (702) 825-4300 

For fast delivery, send certified or 
cashiers checks, or monev orders. 
Personal checks allow 2 to 3 weeks 
to clear. M/C and VISA accepted. 
Be sure to include shipping. (Nevada 
residents add lax} 




100 W, Grove, Suite #115 
Reno, Nevada 89509 

(702) 825-4300 



ATARI is a Trademark of ATARI, Inc. 






Experience the 

Magazine 

of the Future . . . 



The Programmer's Institute's magnetic magazines 
will entertain, educate, and challenge you. 

Each issue features ready-to-load programs ranging from 
games, adventures, home apphcations and utilities to personal 
finance, educational, and our unique teaching programs. Our 
magazines include fully listable programs, a newsletter con- 
taining descriptions and instructions for all programs, and notes 
on programming techniques used. 



TM 




for the Atari 400/ 800 



ORDERING INFORMATION 

Subscriptions* Cassette Diskette 

Year $50.00 $75.00 

Vi Year $30.00 $45.00 

Trial Issue $10.00 $15.00 

* Add $2.00 postage and handling. 

ALL SOFTWARE REQUIRES 16K. 



"Received my first copy 
. . . it's great! Please 
rush to me one of each 
back issue, so I'll have a 
complete set. " 

R.G., Chicago, IL 



J 



"Not only are the games 
fun and the applications 
useful, but the quality of 
the programs is excellent. " 
S.P., Midwesl 

Computer Software Sales 



See your local dealer or order direct: 
THE PROGRAMMER'S INSTITUTE 

a division o/FUTUREHOUSE 
" 3191, DEPT. 1-L 
iILL, NC 27514 



FREE CATALOG AVAILABLE UPON REQUEST. 




489-2198 

10 AM - 9 PM, Man - Sat 
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AUDIO IN YOUR PROGRAMS 



by Marc Rossen 



For those of you with program recorders, this 
article will teach you how to access one of its hidden 
features, playing audio (e.g., music, your voice, etc.) 
through your TV speaker via the 410 program re- 
corder. You may have seen this feature, if you've seen 
ATARI'S Invitation To Programming series, which 
uses audio to help explain the lessons. 

Using this feature is very simple. Just put an audio 

cassette in your program recorder and type in the 

following program: 

10 POKE 54018,52 

28 FOR fl=l TO 2OO0:NEHT ft 

30 POKE 54018,60 

Now press the play button on your program re- 
corder, type RUN and press the RETURN key. 

You should be hearing audio playing through 
your TV speaker. If you don't hear anything, turn up 
the volume on your TV. 



What you are actually doing is turning the motor 
on and off in your program recorder. Line 10 in- 
structs the computer to turn on the program recor- 
der. Line 20 is a delay to keep the motor on for a 
specified period of time. To change the length of 
time the motor is on, simply change the value of the 
FOR/NEXT loop in line 20. Line 30 turns off the 
motor in the program recorder. It is important to 
turn off the motor after turning it on, so that it can be 
turned on again later in the program. 

In order to use this feature in your programs, first 
record the program onto a cassette and then 
record the audio portion of the program on the tape 
right after the digital part (your program). 

You will need to use a regular cassette recorder 
to record the audio for your programs because the 
ATARI 410 program recorder will not record 
audio. D 




You've invested a lot of time and money into your computer . . . 

IV s time that investment paid off! 



THE COLOR ACCOUNTA NT 




After the initial setup, THE COLOR ACCOUNTANT requires less than an liour ol data uiput each month. 

The eheckbook maintenance program is the key to the entire package. Once your checkbook is balanced, the checkbook summary f,le will 
automatically update the home budget analysis, net worth, and income/expense statements. You can then graph any file, record bills and 
appointmems, make decisions, print a mailing list, analyze various accounts or stocks, and even calculate taxes. , . , ,,„„, 

All programs are menu-driven and allow add/change/delete. Each file and statement can be listed to screen or printer, and saved to cassette 
or diskette THF COLOR ACCOUNTANT also comes with 40 pages of documentation that leads you step-by-step through the entire package. 
The Atari 400/800 requires 24K for cassette and 32K for diskette for this package. ($74.95 cassette, $79.95 diskette). 

See your local dealer or order direct: 

>.^«:«.:.x.x.x.x.:.:.x.x::.:.s«-^ THE PROGRAMMER'S INSTITUTE 

W^MMMM^BM.XdKM/^MJQJU^MMWm^^MW^ mmmmmMmmim n division q/ futurehouse 

The perfect supplement to THE COLOR ACCOUNTANT, The Tax Handler includes: 

1. Complete Form 1040 

2. Schedule A (Itemized Deductions) 

3. Schedule G (Income Averaging) 
This year let The Tax Handler prepare your taxes ($24.95 cassette, $29.95 diskette). 
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BUDGET PROGRAMS REVIEW 



Review by The Program Doctors 

"Budget programs? How boring!!!" said the 
Program Doctors, when approached by our two 
illustrious editors to write this article. (The surgeon 
general was right — L & M can be hazardous to your 
health.) But we do use Theo (our computer's name, 
remember?) for more than just playing games, as 
most of you probably do, and with this in mind we 
decided it was important that you be made aware of 
the different types of budget programs available, to 
make sure you buy the one best suited to your needs. 
(Also to get your budgeting chores done quickly and 
easily so you have more time to play games!!!) 

The programs we will discuss are Personal Fi- 
nancial Management System from ATARI, 
Personal Finance for the ATARI (new version to 
be released as A Financial Wizard) from Compu- 
tari, and Budgetmaster from Sunrise Software. 
Money Manager from Acorn Software, while not 
really a budget program, does deal with your check- 
book in an outstanding manner and will be outlined 
for you. 

All three programs begin with the basic premise of 
setting up a budget, helping you follow it, and giving 
you an idea of where you are spending your hard- 
earned dollars. Let's first look at what these pro- 
grams have in common. 

To begin with, you must set up the categories that 
best apply to your spending habits. Then you enter 
your best estimate of what you will spend for each 
month. As you make entries of what you actually 
spent (your checks), the amounts are compared and 
analyzed for you, and you can chart a single category 
for many months, or many categories for one month. 
With the exception of Budgetmaster, you can also 
have this information in the form of bar graphs. All 
three programs offer a check reconciliation feature. 
Sounds simple enough, doesn't it? But the way each 
of these programs handles the above functions, the 
additional individual features, and the ease of use 
vary greatly. 

Personal Finance for the ATARI from Compu- 
tari is by far the best of these programs (why save the 
best for last?) and will be the standard of comparison 
for the others. There are 26 expense categories avail- 
able that are easily adapted to your personal require- 
ments; 21 are regular expense accounts, 1 is reserved 
for salary and 4 are usage categories for record keep- 
ing, such as gas and electric usage. You then input 
your budgeted amounts. After you get January done, 
if your expenses run much the same month to 



month, you just tell the computer to copy January 
for February, March, April, etc. If you have certain 
expenses that are different from month to month, or 
expenses that occur only once in a while, you can 
easily adjust only those without having to re-enter 
everything. 

The check entry mode is very simple to use. After 
asking you what month you are entering, the pro- 
gram prompts you to enter the check information, 
including whether or not it is tax deductible. When 
tax time rears its ugly head, you will really appre- 
ciate this function and the Check Search mode which 
will search by Name, Category, Check # or tax 
deductible checks. 

The way Personal Finance displays and handles 
your tabulations is excellent. You can chart your 
actual expenses vs. your budget by month, by cate- 
gory or Year to Date. This information is obtained by 
the computer from your check input. Tabulations by 
month give you a list of all categories, how much you 
spent, how much you budgeted, the dollar amount 
plus or minus your budget, and the percentage of 
your total income you are spending on each category. 
The tabulation by category also gives you actual 
expense vs. budget, the difference, and the average 
amount you are spending. This information will be 
very helpful to you in adjusting your budget if need 
be. (Come on, you know you'll have to adjust it!!) 
Besides the charts, you can also look at your 
expenses vs. budget in bar graph form, again by 
month or by category. There it is in black &. white 
(and blue and gold); the amount you budgeted vs. 
the amount you spent. A very depressing picture 
indeed, but an excellent feature of this program. 

Everything about this program is excellent, but 
where it really outshines the rest is in the Check 
Reconciliation. In effect, it gives you your bank 
statement on the screen, a complete list by month of 
all your checks and deposits. All you do is run down 
the column and type an asterisk next to everything 
that has been cleared. You can clear about 40 checks 
in 2 minutes. Then sit back, and the computer will 
balance your checkbook, and report how many 
checks and deposits are still outstanding, and 
whether or not you balance. 

The version of Personal Finance that was re- 
viewed is version 1.3. In speaking with the author. 
Bill McLachlan, we have been told that a version 1.5 
is coming out. (As mentioned earlier, this program 
will also be re-named A Financial Wizard.) This 
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newest version will be enhanced in a few ways. There 
will be a check writer option. You enter your checks 
as if they have already been written — the program 
will perform all of the previously mentioned func- 
tions and, if you have a printer, will print out your 
checks. You just sign and mail. Bank compatible 
checks will be available from Computari; ordering 
information will be in the package. There will also be 
an audit feature. As the program stands now, if for 
some reason, you absolutely, positively cannot 
balance your checkbook, you can easily adjust your 
balance. In version 1.5 the only way to adjust your 
balance will be to run an audit. The computer will 
run through all your checks and give you totals for 
each month of your checks and deposits that you can 
check against your bank statements. At least you'll 
know it's not a math error. As stated in the instruc- 
tions, "Computers don't make missteaks." While 
this may seem like a lot of extra work, it actually is an 
excellent safeguard for those of you who tend to 
adjust your checkbook balance too readily. After all, 
even though you may not want to admit it, the bank 
is usually tight. However, if after the audit you still 
cannot reconcile, you will have the opportunity to 
adjust your balance. Check Entry has also been en- 
hanced. You will have the option to. scan all your 
checks in the month you are working on without 
leaving the Check Entry mode. Check Search has 
been expanded so you can pinpoint a check within 
six parameters at once. 

By the time this article is published, A Financial 
Wizard should be on the market, and we strongly 
recommend this program. User compatibility is ex- 
cellent, and is set up with most of the instructions on 
the screen, so you are not constantly referring to the 
instruction manual. However, as in all of these 
programs, it is IMPERATIVE that you thoroughly 
read the manual to get the most from the program. 
ATARI'S Personal Financial Management 
System is a program that many people might be 
tempted to buy because of the superb packaging job. 
This program consists of 3 diskettes and a 3-ring 
binder instruction manual written with ATARI'S 
typical Step-by-step thoroughness. But, caveat 
emptor. While this program has most of the features 
of Computari's program, and even a few nice addi- 
tional ones, this program is very awkward to use. 

Check entry is slow. Rather than having the cate- 
gories displayed in front of you as you enter checks, 
you must input the category name. If you had to 
abbreviate a category name, and don't remember it 
exactly, the program will ask you if it should create a 
new category. This creating during entry is time con- 
suming and frustrating, especially if it's just a matter 
of not remembering how you coded in the names. If a 
check is tax deductible, you must enter it in the tax 
deductible category, as opposed to just answering 
"yes" or "no." There is a provision for comments in 



the check entry mode. One nice addition to this pro- 
gram is the Credit Card categories. When you use 
your credit cards, you enter the transaction and the 
corresponding budget category. When you write a 
check for a credit card payment, you enter it in the 
transfer category. That way you don't have a double 
calculation for the same expense. This is a good 
function because it gives you a more accurate 
accounting of where your dollars are spent. There is 
also an automatic deductions option and savings 
account record keeping ability. 

When it comes time to analyze your budget, this 
program also offers you charts and bar graphs. You 
have the options to look at expense vs. budget in the 
same way as the other programs — by month, by 
category, etc. If you choose to look over one month's 
expenses, you get a partial listing and must hit return 
for another screenful. At the end you get totals, but 
unless you have a printer, you really can't study your 
complete budget all at one time. 

The checkbook balancer is also very awkward to 
use. You must enter the check you want, wait for it to 
be found and displayed, then clear it. You must 
choose different menu options for clearing checks, 
deposits or automatic deductions. 

ATARI offers one more feature that is different 
from the others — the budget forecaster. This will 
give you a projection of your anticipated expendi- 
tures over a selected period of time. The more data 
you have entered, the more accurate your projec- 
tions will be. The forecasts are presented in one of 
three ways: by averaging your spending patterns, by 
establishing a trend of your habits, or seasonally. 
Again, you can get charts or bar graphs. While some 
may feel this is a necessary addition to the program, 
this reviewer thinks it is superfluous. After all, this is 
depressing enough without having to be told how 
much worse it's going to get. 

Budgetmaster from Sunrise Software is really 
two separate programs, Budgetmaster and Check- 
balancer. The cassette versions may be purchased 
separately; the disk version gives you both programs 
on one disk. This program is more than adequate for 
those of you who simply want to set up a budget and 
see where your money is going. There are 26 cate- 
gories which are easy to personalize, and as you enter 
your budget amounts for each category, you can 
input an amount for all 12 months, or you can 
change or delete the amount for one or more 
months. For example, if your car loan is the same 
every month — say, $200.00 — you just budget 200 
and when prompted for the month, type 13. But if 
you only have insurance payments in February and 
August, then when asked for the months you type in 
2 and 8. This makes setting up your budget for an 
entire year quite a simple task. It is very similar to the 
way Computari's Personal Finance does it. 

To input your expenses and reconcile your check- 
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book, you need to load Checkbalancer. Again your 
categories are displayed and you input the check 
number, amount, category and whether the check 
was cleared. There is no place to enter who a check 
was written to. It is recommended that check entry 
be done at the time you receive your bank statement, 
as you can enter and reconcile at the same time. 
However, because of this you really cannot use this 
program to keep your checkbook current, or 
possibly even eliminate keeping it by hand at all, as 
you can with Computari's program. If you do not 
purchase Checkbalancer, your expense entry is 
rather different. You must manually add up all 
expenses in a category for one month and make a 
single entry of that amount. 

When you are finished, you select Save Data on 
the menu, and the information is written to the 
Budgetmaster files. While Budgettnaster does 
not give you bar graphs, it does analyze your budget 
in chart form by either month or category. 

You must remember to use the Save Data option 
after any entering is done. It is not automatic (as with 
the other programs) and leaves a lot of room for 
error. The reason for this is that you must indicate 
whether you are saving to cassette or disk. For those 
of you with only a cassette these drawbacks will be 
easily overlooked because this is something you can 
use very well with your system. 

As said earlier. Money Manager from Acorn 
Software is not a budget program, nor does it claim 
to be. It is a checkbook manager and this it does very 
well. You set up categories and input your check 
data. You have full search capabilities, by entry, by 
month, by category, etc., but instead of a chart or 
graph, you get a listing of all the requested data, with 
totals. When you define your categories, the pro- 
gram assigns them each a number. Entering data is 
simple, however, you will need a hard copy of your 
categories and their assigned numbers, since the 
program does not show them to you on the screen as 
you are entering your checks. Money Manager 
allows multiple entries of the same check number 
and has provisions for tax deductible checks. 

Check reconciliation is quick and simple. The 
program searches through your monthly files, dis- 
plays outstanding checks one at a time, and prompts 
you to clear or not to clear. It then informs you of 
what your balance should be. This is an excellent 
program if you do not want to keep track of your 
budget in a formal way as in the other programs. 

Because of the capacity of the ATARI disk, some 
choices had to be made — and Computari, Sunrise 
and ATARI all made different ones. While the 
ATARI on the surface may seem to offer more func- 
tions and a more complete package, the fact that you 
have to constantly change disks to accommodate 
everything is very annoying. You insert a disk to load 
the check entry program, change disks to enter data, 



change disks for months, change disks for budget 
analysis and forecasting, re-insert data disks. Per- 
sonal Finance has one disk that does everything, 
and Budgetmaster has two programs on one disk. 
While it would be nice to have the credit card files 
included, you can do something similar, since Per- 
sonal Finance will accept duplicate check numbers 
with different categories (and in Version 1.5 there is 
a way to enter credit card transactions without sub- 
tracting the amounts from your balance), and 
Budgetmaster allows you to break down the dollar 
amount of one check into several categories. This is a 
small price to pay for having all your information on 
one disk. 

Graphics, while really not a factor in the quality of 
programs of this type, do make your budgeting 
chores a little more pleasant. Again Personal 
Finance comes out on top. Budgetmaster and 
ATARI use graphics mode 0, with no colors but 
blue. Personal Finance uses different background 
colors, depending on what option you are working 
with, and nice touches here and there to jazz up the 
program. Money Manager also makes excellent use 
of ATARI'S graphic capabiUties. It is this little extra 
effort that shows you a programmer is thinking of 
you, the user, when he designs a program. 

So, dear readers, there you have it. In making a 
selection of which program to use, everyone will 
have different requirements and wants. We hope we 
have made your decision a httle easier. Now the 
choice is yours (and we can go play some games! ). D 

(NOTE: Some little bugs have been discovered in 
the ATARI Personal Financial Management Sys- 
tem, and we have learned that this program will be 
taken off the market temporarily for corrections.) 



FINANCIAL MANAGEMENT 
COMPARISON CHART 



Money Personal Budget ATARI 
Manager Finance Master PFMS 



$39.95 $49.95 $34.95 NLA 



System Requirements 32K 24K 32K 32K 
Disk Disk Disk/Cass Disk 



Printer Optional 



Yes 



Yes 



Yes 



Yc 



Budget Entry 



No 



Yes 



Budget Analysis 



No 



Yes 



Yes 



Check Entry 



Yes 



Yes 



Yes 



Check Search 



Yes 



Yes 



Check Reconciliation Yes 



No 



Yes 



Yes 



Yes 



Yes 



Bar Graphs 



No 



Yes 



No 



Yes 



Number of Categories 98 26 (add'l 26 128 

36 sub- 
categ. 

Vers. 1.5) 
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STUNTMANI 



16K CASSETTE 24K DISK 



by Steven Pogatch 



Your stunt man has been hired to climb to the top 
of every building he can find. This is not as easy as 
it may seem, though, because the tenants of the 
buildings will do anything to get you off it. There are 
six (6) levels to each building, each progressing in 
difficulty. 

In the first section, windows constantly close to 
keep you from getting past them. Next, men stick 
their heads out of the windows, trying to get in your 
way. After that, flower pots fall from the window 
ledges, closing all windows in their way. After 
passing this section, a crazy bird drops girders on 
you. Be careful here, they can be deadly if they hit 
you on the head. Once you get past the bird, you 
have to avoid King Kong, waiting for you on his part 
of the building. He is very angry and is throwing 
down anything he can find on top of you. Last (but 
not easiest), girders (3 lanes wide) come crashing 
down from the building. Look out! 

If you are lucky enough to get through all of this, 
there will be a brief intermission telling you to go on 
to the next building. On the top left corner of the 
screen are three numbers. The first one represents 
the section, the second represents the building 
number, and the third represents the number of 
men you have left. If you manage to score 10,000, 
30,000 or 50,000 points, you will be rewarded a free 
stunt man. The score is displayed in the lower left 
hand corner. You can move left, right and up with 
the joystick. For every movement you make, you 
are rewarded 50 points. You start out with 6 stunt 
men. Good luck chmbing — you'll need it! D 



ocumentation of the program: 

Description 

Initialization 

Movement of a player, activate 

obstacle(s) 

Death (fall) of stunt man 

Section 1 (windows & men) 

Section 2 (flower pots) 

Section 3 (bird) 

Section 4 (King Kong) 

Section 5 (girders) 

Bonus stunt man 

Go on to next building (intermission) 

Redefines character set 

Title 

End of game 



Here 


is the d- 


Lini 


e# 


1 ' 


30 : 


40 ' 


1000 : 


1000 - 


2000 : 


2000 - 


3000 : 


3000 ' 


4000 ; 


4000 - 


■ 5000 


5000 ' 


6000 , 


6000- 


10000 : 


\0000- 


• wooo 


11000- 


-32000 


32000- 


-32500 


32500- 


-32700 


32700- 


-32750 



1 G05UB 32008:CLR 

2 G05IJB 325fl0:5H=6:B=l 

5 GRftPHICS l:POKE 756, PEEK (1«6J+1 

19 5ETC0L0R 2,8^0:POKE 7.t0,94:P0KE 711 
,45:F0R 0=0 TO 19:P0SITx0K 5, ft:? tl6;"e 
eeeeeeeeeee" :NEHT 

20 FOR ft=5 TO 16:F=RKDCe}K19:IF F>1 TH 
EM POSITION 0,F:? »6;"f":NEXT A 

30 K=10:Y=18:0X=K:0Y=y 

40 POSITION OK.OV:? It6; "e" : P05ITI0H OK 
,OY+l:? »6;"e" 

41 LOCOTE H,Y,Z:IF Z=102 OR 2=225 OR Z 
=66 THEM GOSUB 1000 

42 P05ITI0M K,V:? tt6; ■■0": POSITION H,Y+ 
l:? «6;"(II" 

43 IF SC=10000 OR SC=50000 OR 50=19000 
THEN 5H=SH+l:G0SUB lOOOO 

44 IF Y=0 THEM L=L+1:G0T0 S 

45 OX=K:OV=Y 

46 SOUND 0,Y*2e,3,15:F0R fl=l TO 15:MEX 
T a:SOUND 0,0,0^0 

47 G=RNDC0>*4:IF G>3.7 THEN FOR 6=5 TO 
16:P05ITI0N ft,RND(03»18:? tt6j"f":NEXT 
A 

48 ON L GOSUB 2000,3000,4000,5000,6000 
:IF L=6 THEN L=0 : B=B+1 : GOSUB 11009 

49 POSITION 0,19:? tt6; 5C : POSITION 1,1: 
? tt6jL:P05ITI0N 1,2:? a6jB:P05ITI0H 1, 
3:? 116 ;SH 

50 IF STICKfO>=14 AND Y>0 THEN V=Y-1:S 
C=5C+50:GOTO 40 

60 IF STICKCO)=H AND H>5 THEN X=X-1:S 

C=SC+50:GOTO 40 

70 IF STICKC0>=7 AND X<16 THEN X=X+1:5 

C=5C+50:GOTO 40 

lee GOTO 42 

1000 SOUND 0,40,6,10:F0R A=l TO 25:NEX 

T A:S0UND 0,0, O, :SOUND 1,9,0,9 

1010 FOR A=Y TO 18:P0SITI0N X,A:? tt6;" 

ia":P05ITI0N K,A+l:? «6; "III" : POSITION X, 

A-l:? tt6;"e":P0SITI0N X,A:? It6;"e" 

1020 SOUND 9,A+2O,1O,10:NEXT A:SOUND 

,0,0,e:SH=SH-l 

1030 IF 5H<0 OR SH=0 THEN GOTO 32790 

1040 GOTO 10 

2900 REM DOCTORS 

2010 C=C+l:IF C=ll THEN C=l : DC=RND (0J« 

10 

2020 IF DC>6 THEN POSITION C*5,RND(0J» 

18:? «6J"B" 

2040 RETURN 

3800 REH POTS 

3010 D=D+l:IF D=ll THEN D=l : DC=RND (0J» 

10 

3020 IF DC>7 THEN FOR A=2 TO Y:POSITIO 

N D*5,A:? tt6;"B":P05ITI0N D+5,A-1:? «6 

;"f":NEXT A:P0SITI0N D*5,Y:? »6;"e"' 

3830 RETURN 
4000 REM BIRD 

4010 BD=BD+l:IF BD=11 THEN BD=1 
4020 POSITION BD*5,2:? 116; "C" : POSITION 
BD+6,2:? «6;"D": POSITION BD+4,2:? »6; 
"e":BDD=RNDCO)«10 

4822 IF BD=1 THEN POSITION 15,2:? »6j" 
ee" 

4025 IF BDD>3 THEN 4030 
4027 RETURN 

4030 FOR BDDA=4 TO 19:P0SITI0N BD45,BD 
DA:? tt6; "em": POSITION BD+5,BDDA-1:? «6 
;"ee" 

4040 LOCATE X,Y,Z:IF Z=189 THEN GOSUB 

1800 

4050 SOUND e,BDDA+10e,10,8:NEXT BDDA:S 

OUND 0,8,8,8 
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4060 RETURN 

5800 REH KONG 

5010 KH=KN+l:IF KH=12 THEN KL=KL+1:KN= 

I 

5015 IF KN=1 THEN KN=KN+1:IF KL=12 THE 

N KL=1 

5020 POSITION KN+5,KL+l:? tt6; "B" rPOSIT 

ION KH+5,KL+2:? tt6j "O" : POSITION KN-1+5 

,KL+l:? »6;"e":P05ITI0N KN-1+5, KL+2:? 

116; "e" 

5025 POSITION 16,KL+1:? »6; "e" : POSITIO 
N 16, KL+2:? tt6j"e" 

5026 REM FOR fl=l TO 12P0SITI0N 15, A? « 
6'"9"NEMT A 

5027 LOCATE X,Y,Z:IF Z=235 THEN GOTO 1 
000 

5030 aQQ=RNI>Ce)Kie+l 

5048 IF QQQ<6 THEN RETURN 

5045 IF 0QQ>6 AND QQQ<7 THEN 5850 

5846 IF aaQ>7 AND QQ(t<8 THEN 5200 

5047 IF «Qa>8 AND 00Q<9 THEN 5388 

5048 IF QQ0>9 AND 0QQ<18 THEN 5400 
5050 FOR A=KL+4 TO 17 

5060 POSITION KH+5,ft!? tt6; "B" : POSITION 

KN+5,fl-l:? »6;"e":L0CATE X,Y,ZZ:IF ZZ 
=66 THEN 1000 

5070 SOUND 0,A+200,10,8:HEKT A:SOUND 
,O,0,0:POSITION KN+5,17:? tt6;"e" 
5088 RETURN 
5200 FOR A=KL+4 TO 17 
5210 POSITION KN+5,A:? «6 ; "I" : POSITION 

KH+5,A-l:? «6j"e":L0CATE H,Y,ZZ:IF ZZ 
=73 THEN 1000 

5220 SOUND 0, A+200, 10, 8 : NEKT A:SOUND 
,0,O,0:PO5ITIOH KN+5,17:? «6;"e" 
5230 RETURN 
5300 FOR A=KL+4 TO 17 
5310 POSITION KN+5,A:? tt6; "M" : POSITION 

KN+5,A-1:? 116 ;"e": LOCATE X,Y,ZZ:IF ZZ 
=77 THEN 1080 

5320 SOUND 0, A+200, 10, 8:NEKT A:SOUND 
,O,O,0:PO5ITION KN+5,17:? tt6;"e" 
5330 RETURN 
5400 FOR A=KL+4 TO 17 
5410 POSITION KN+5,A:? tt6; "A" : POSITION 

KHt5,A-l:? »6j"e":L0CATE H,Y,ZZ:IF ZZ 
=65 THEN 1000 

5420 SOUND 0, A+200, 10, 8:NEXT A;SOUND O 
,0,0,0:POSITION KN+5,17:? tt6;"e" 
5430 RETURN 
5500 RETURN 

6000 REM GIRDERS ARE MEAN 
6085 GG=RNDCO)«10+l:IF PL=1 THEN PL=19 
6810 IF GG<4 THEN RETURN 
6020 TTT=RNDC0J*12+1 
6830 IF TTT<5 THEN RETURN 
6840 FOR A=2 TO 19:P0SITI0N TTT,A:? tt6 
;"MMM": POSITION TTT,A~1:? »6; "eee" : SOU 

Hl> 0,A,TTT,12:S0UND 1,TTT,A,12 

6045 LOCATE X,Y,ZZ:IF ZZ=77 THEN GOTO 

1888 

6847 NEXT A 

6850 SOUND 0, 0, 8, 8 : SOUND 1,0,0,0 

6868 POSITION TTT,19:? tt6;"eee" 

6870 RETURN 

18000 RESTORE 10500 

10818 READ SO:IF S0=-1 THEN SOUND 0,0, 

0,0:RETURN 

10820 SOUND 0,S0,10,14:F0R A=l TO 2 : NE 

XT A: GOTO 10010 

18500 DATA 243.4.162,4,121,6,96,2,102, 

4,243,4,162,4,i2i,6,il,2,66,S,-i 

11008 GRAPHICS 0:P0KE 752, 1 : POSITION 1 

,1:? ■■ GO ON TO BUILDING "JB:F0R 

A=l TO 3;F0R Q=l TO 58:S0UND 0,0,18,8 

11005 NEXT 0:NEHT A:SOUND 0,0,0,0 

11010 FOR A=0 TO SC STEP 158: SOUND 0,1 

9,32,8:F0H Q=l TO 20:NEXT Q:SOUND 0,8, 

0,8:P0SITI0N 18,5:? "SCORE :"; A: NEXT A: 

GOTO 5 

31999 END 

32000 POKE 106, PEEK C186) -5: GRAPHICS 0: 
START=fPEEKC106J+13«256:POKE 756, START 
/256:P0KE 752,1 

32018 D IM XFRSt383 ;XFRS= "hnfnCT!HIi;Wi 

■^i Knntfa333io2<BSE03£iar«'' 

32028 Z=USR tADR f XFR$1 3 : REST8RE 32108 



32838 READ X:IF X=-l THEN RESTORE :RET 

URN 

32848 FOR Y=0 TO 7:READ Z:POKE X+Y+STA 

RT,Z:HEXT Y:GOTO 32030 

32108 DATA 264,68,126,219,255,231,189, 

195,126 

32101 DATA 272,106,50,36,255,126,126,1 
26,126 

32102 DATA 280,30,207,255,255,127,15,3 
0,60 

32103 DATA 288,30,26,255,254,224,8,0,0 

32104 DATA 296,255,129,129,129,129,129 
,129,255 

32105 DATA 304,0,126,126,126,126,126,1 
26 J 

32106 DATA 312,195,153,153,231,60,60,6 

32107 DATA 320,60,60,36,36,36,231,231, 

32108 DATA 328,60,36,60,8,24,16,24,8 

32109 DATA 336,60,90,126,129,165,129,1 
26, 60 

32110 DATA 344,60,102,165,165,165,219, 
60,231 

32111 DATA 352.126,102,182,126,8,8,48, 
56 

5?HI S515 360,0,0,255,102,255,8,8,8 

32113 DATA -1 

32508 GRAPHICS 17 

3 2518 FOR A=l TO 22; P OSITION 0,A:? tt6j 

"(■U'lJimmmmmmrTit:^" : sniiiin o,a+25,io 

,12:NEXT A:POSITION 4,10 

32511 SOUND 0,0,8,0 

32512 ? »6j". .stunt.wan. .■• 

32520 POSITION 2,13:? tt6;"0n STEUEN PO 
GATCH": POSITION 5,14:? tt6; "PRESS START 

32525 POSITION 7,18:? «6;"Cc)1982" 
32530 IF PEEK 1532791 =6 THEN RETURN 
32540 GOTO 32530 

32700 GRAPHICS 18:P0SITI0N 1,2:? a:6;"@ 
HHlHMia": POSITION 1,5:? tt6;"SC0RE="; 

32710 POSITION 1,6:? tt6;"PRESS START " 
32715 IF PEEKC53279)<>6 THEN 32715 
32755 CLR :GOTO 2 



D: CHECK DATA 

1 DATA 405,862,266,737,109,88,847,358, 

465,380,757,766,893,250,529,7712 

49 DATA 651,821,816,783,492,194,283,35 

5,459,802,275,731,243,641,81,7627 

3010 DATA 814,802,639,5,863,397,285,59 

,644,289,767,315,649,45,903,7476 

5815 DATA 475,635,35,181,239,438,357,1 

96,575,12,498,586,954,593,656,6350 

5200 DATA 694,516,469,796,844,154,541, 

966,579,957,608,649,802,498,636,9693 

6810 DATA 517,696,775,661,718,783,34,1 

66,974,422,267,498,329,809,81,7730 

11818 DATA 684,280,284,314,875,528,968 

,108,861,386,45,178,363,354,269,6481 

32108 DATA 289,687,818,288,887,619,312 

,711,269,836,11,98,343,224,289,6521 

32718 DATA 906,306,478,1690 




JUnWORX SCORES ANOTHER 
TECHNICAL KNOCKOUT. 




Scene from GOLDEN GLOVES 



HODGE PODGE: by Marsha Meredith 

(Atari and Apple) 

NOW AVAILABLE FOR ATARI!!! This captivating 
program is a marvelous learning device for children 
from 18 months to 6 years, HODGE PODGE consists 
of many cartoons, animation and songs which appear 
when any key on the computer is depressed. A must 
for any family containing young children. 

PRICE $19.95 diskette 

BETA FIGHTER: by Douglas McFarland (Atari, 16K) 

See who will be the ace gunner in this action game 
set on a spectacular Martian landscape. BETA 
FIGHTER can be played with one or two players and 
uses player/missile graphics and delightful sound 
effects 
price! $16. 95 cassette $20.95 diskette 

DRAWPIC: by Dennis Zander (Atari 16K) 

DRAV^PIC provides the user with an unbelievably 
easy way to create screens in graphics modes 3-7. 
Just sit back with your joystick and use POINT PLOT, 
DRAW LINE, RUBBER BAND fill and COLOR SET to 
create beautiful images on your Atari. Full or partial 
screen images are saved as string data in the program 
and can be instantly recalled and combined into new 
images using machine language subroutines. These 
graphic images can be easily incorporated into your 
ownprog-rams.Theimagesof HODGE PODGE and the 
landscape of BETA FIGHTER were made using 
DRAWPIC. 
PRICE $29. 95 cassette $33.95 diskette 



D ROCKET RAIDERS by Richard Petersen (Atari 24K) 
Defend your asteroid base against pulsar bombs, roc 
kets, lasers, and the dreaded "stealth saucer" as aliens 
attempt to penetrate your protective force field Precise 
target sighting allows you to fire at the enemy using mag 
netic impulse missiles to help protect your colony and 
its vital structures 
PRICE $19.95cassette $23.95 diskette 

O FOREST FIRE TWO: by Richard Petersen (Atari 24K) 
FOREST FIRE has been enhanced and now offers a two 

player mode for head to head competition to see who can 

survive, sufter the least damage and put their tire out first. 

User mput novj determines landscape, wind and weather 
conditions, ottering limitless game variation. FOREST EIRE'S 
excellent color graphics have been made even better, turning 
your computer into a super-detai led fire scanner, 
PRICE $16.95 cassette $20.95 diskette 

D FORM LETTER SYSTEM: (Atari, North Star and Apple) 
This IS the ideal program for creating personalized form 
lettersi FLS employs a simple-lo use text editor for pro- 
ducing lully lustified letters Addresses are stored in a 
separate file and are automatically inserted into your 
form letter along with a personalized salutation Both 
letter files and iddress tiles are compatible with ART- 
WORX MAIL LIST 3 Oand TEXT EDITOR programs 
PRICE i39.95diskette 



D PILOT; by Michael Piro (Atari. 16K) 

Pilot your small airplane to a successful landing using 
both joysticks to control throttle and attack angle. PILOT 
produces a true perspective rendition of the runway, 
which is constantly changing. Select from two levels of 
pilot proficiency, 
PRICE $16.95 cassette $20.95di5kette 

a TEXT EDITOR: (Atari and North Star) 

This program is very "user friendly" yet employs all 
essential features needed for serious text editing with 
minimal memory repuirements. Features include com- 
mon sense operation, two different justification techni- 
oues. automatic line centenng and straightforward 
text merging and manipulation, TEXT EDITOR files are 
compatiblewith ARTWORX FORM LETTER SYSTEM, 

PRICE $39.95 diskette 

D MAIL LIST 3.0: (Atari, Apple and North Star) 

The very popular MAIL LIST 2,2 has now been up- 
graded. Version 3.0 offers enhanced editing capabilities 
to complement the many other features which have made 
this program so popular. MAIL LIST is unique in its 
ability to store a maximum number of addresses on one 
diskette (typically between 1200 and 2500 names!). 
Entries can be retrieved by name, keyword(s) or by zip 
codes. They can be written to a printer or to another 
file for complete file management. The program pro- 
duces 1, 2 or 3-up address labels and will sort by zip 
code (5 or 9 digits) or alphabetically (by last name). Files 
are easily merged and MAIL LIST will even find and 
delete duplicate entries! The address files created with 
MAIL LIST are completely compatible with ARTWORX 
FORM LETTER SYSTEM, 
PRICE $49.95 diskette 

D THE VAULTS OF ZURICH: by Felix and Greg Herlihy 

(Atari, 24K. PET) 
Zurich IS the banking capital of the world. The rich and 
powerful deposit their wealth in its famed impregnable 
vaults. But you, as a master thief, have dared to under- 
take the boldest heist of the century. You will journey 
down a maze of corridors and vaults, eluding the most 
sophisticated security system in the world. Your goal is 
to reach the Chairman's Chamber to steal the most trea- 
sured possession of all: THE OPEC OIL DEEDS! 
PRICE $21.95cassette $25.95 diskette 

a BRIDGE 2.0 by Arthur Walsh (Atari (24K), Apple 

TRS-80, PET, North Star and CP/M (MBASIC) systems) 
Rated ftl by Creative Computing, BRIDGE 2,0 is the 
only prpgram that allows you to both bid for the contract 
and play out the hand (on defense or offense!). Interest- 
ing tiands may be replayed using the "duplicate" bridge 
feature. This is certainly an ideal way to finally learn to 
play Pridge or to get into a game when no other (human) 
players are available, 
PRICE $17.95 cassette $21.95diskette 

a ENCOUNTER AT QUESTAR IV: by Douglas McFarland 

(Atari, 24K) 
As helmsman of Rikar starship, you must defend 
Questar Sector IV from the dreaded Zentarians. Using 
your plasma beam, hyperspace engines and wits to avoid 
Zentarian mines and death phasers, you struggle to stay 
alive. This BASIC/Assembly level program has super 
sound, full player missile graphics and real time action, 
PRICE $21.95 cassette $25,95 diskette 



NEW PROGRAMS! 



GOLDEN GLOVES: by Douglas Evans (Atari 24K) 

Use your joystick to jab, block and duck as each 
player attempts to land the knockout punch. This 
unique real-time program brings all of the excitement 
of ringside to your Atari, GOLDEN GLOVES isa one or 
two-player game, or you can be a spectator as the 
computer controls both fighters. 
PRICE $22.95 cassette $26.95 diskette 

CRAZITACK: by Peter Adams (Atari 16K) 

The Crazies are attacking us and the only defenses 
are three MX bases. Missiles can be launched singly 
or in a salvo, but it is doomsday when you run out of 
missiles. 
PRICE $17.95 cassette $21.95 diskette 

DOMINATION: by Alan Newman (Atari 24K) 

Between one and six players compete for power via 
economic, diplomatic and military means in this 
award-winning game. You must make decisions 
quickly, exercise skillful hand-eye coordination, out- 
guess your opponents and cope with random events. 
PRICE $17.95 cassette $21.95 diskette 

POKER TOURNEY: by Edward Grau 

(Atari 32K, Ncrthstar) 
You are entered in a high stakes Draw Poker 
Tournament facing six opponents including Lake- 
wood Louie, Shifty Peteand Dapper Dan. Each has 
hisownstyleofplayandofbluffing. POKER TOUR- 
NEY utilizes the Joker, has true tablestakes play and 
each hand is played based on pot odds. The Atari 
version's graphics and sound are superb of course 
(programmed by Jerry White) making POKER 
TOURNEY the class program of its type. 
PRICE $18.95 cassette $22.95 diskette 

HAZARD RUN: by Dennis Zander (Atari, 16K) 

The sheriff has spotted you and you must make the 
treacherous run through Crooked Canyon past 
Bryan's Pond to the jumpat Hazard Creekand safety. 
You can even put the joystick-controlled GEE LEE car 
upon two wheels to make it through some tight spots. 
A lead foot is not always the answer as you dodge 
trees, rocksand chickens in this nerve-racking game. 
HAZARD RUN employs full use of player/missile 
graphics, re-defined characters and fine scrolling 
techniques to provide loads of fast action and visual 
excitement. 
PRICE $27.95 cassette $31.95 diskette 



ORDERING INFORMAHON 



Call ARTWORX toll-free number to order 

direct: 

800-828-6573 

In New York. Alaska, Hawaii call: 

(716) 425-2833 

All orders are processed and shipped 

within 48 hours. 

Shipping and handling charges: 

Within North America: Add $2.00 

Outside North America: Add 10% (Air Mail) 

New York State residents add 7% sales tax 

Quantity Discounts: 

Deduct 10% when ordering 3 or more 

programs 

Ask for ARTWORX at your local computer 

store. 

Write for FREE Catalogue listing more 

information about these and other quality 

ARTWORX programs. 




150 North Main Street Fairport, NY 14450 
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HARDWARE REVIEW: 
THE VOICEBOX 

THE ALIEN GROUP 
27 WEST 23rd STREET 
DEPT. AL-1 
NEW YORK, NY 10010 

$169.00 RETAIL 



by Brian Moriarty 



Speech synthesis is a great way to improve the 
human engineering of your software. Used correctly, 
it can keep mundane prompts and announcements 
off the TV screen, and give you extra space to do the 
thing ATARI does best — graphics! 

There are a couple of good voice synthesizers 
available for use with the ATARI 400/800 System. 
Unfortunately, these devices (from Votrax and 
Street Electronics) both carry list prices of over 
$350. In addition, your system must include an 
ATARI 850 Interface Module ($220 extra) for the 
units to work properly. This is a steep investment for 
the average hobbyist. 

A few months ago, a company called The Alien 
Group in New York introduced their "Voicebox" 
Speech Synthesizer. For $169, you get a metal box 
slightly larger than a pack of cigarettes, a disk (or 
cassette) full of software and a stapled sheaf of 11 
typewritten pages. This modest package is capable of 
producing high-quality synthetic gab at a fraction of 
the cost and trouble of competitive units. Best of all, 
it can run without an 850 Interface, external 
speakers or special equipment of any kind. 

How To Use It 

The Voicebox connects to your ATARI computer 
by plugging it into the serial I/O jack normally 
used to attach a cassette or disk drive. (If you al- 
ready have a disk attached, the unit can be connected 
to the extra I/O jack on the back of the drive. Cas- 
sette users must disconnect the tape drive.) Voice- 
box steals all the power it needs directly from the 
computer, so there are no batteries or AC wires to 
fool around with. 

The system works by translating ASCII character 
bytes into sound. To get a line of speech, you set a 
BASIC text string (A$) equal to the phrase you want 
to hear (for example, A$="HELLO"). You then 
pass the address of A$ to a machine-language pro- 
gram which sends each character in the string to the 
Voicebox unit. Voicebox converts the characters to 
an appropriate audio waveform and feeds it back 
into the ATARI, which reproduces the sound 
through its regular TV output channel. There is no 
interference with the ATARI'S built-in sound gener- 
ators or the TV picture. 

Both the cassette and disk versions of the Voice- 
box software come with two demonstration pro- 



grams written in ATARI BASIC. "VB" (16K) lets 
you type in and listen to sentences and compile your 
own pronunciation "dictionaries" (more on these 
later). "VBRF" is an expanded 32K version of VB 
which includes a random sentence generator and an 
amusing "talking face" routine that produces lip- 
sync animation while Voicebox is speaking. 

A third program called "VBS" is included on the 
disk version so that you can use Voicebox in your 
own BASIC software. It's a LIST-format file which 
lets you read in dictionaries and access the Voicebox 
ML routines with a simple GOSUB to line 1000. 
VBS uses about 4400 bytes of RAM when loaded 
and executed (not counting dictionaries). Cassette 
users who want to use Voicebox in their BASIC soft- 
ware must build around the VB demo program. 

An additional disk file, "VB.OBJ," contains a re- 
locatable subroutine that allows machine-language 
programmers to send character bytes to Voicebox by 
passing them through the 6502's X-register. 




VB, VBRF and VBS let you type in straight Eng- 
lish sentences and hear a somewhat recognizable 
speech output. You can also use special phonetic 
symbols to get better definition of the words. Voice- 
box automatically distinguishes between English and 
phonetic syntax in the same line, making speech 
composition fast and painless. You can raise or lower 
the pitch of the reproduced sound (all within a single 
word, if you like) and add pauses of any length for 
greater clarity. A complete list of phonetic control 
symbols is included with the documentation. 
"The Rain In Spain..." 

The Voicebox software also lets you create "dic- 
tionaries" of phonetic equates. These dictionaries 
can be individually saved onto cassette or disk and 
recalled for later use. 

For example, suppose you want Voicebox to say 
the word "ATARI." If you just type in ATARI, 
you'll get an output that sounds something like 
"aytayree." The phoneme string AH-TAH-RE pro- 
duces a more natural-sounding response, but you 
don't want to type the whole thing every time. So 
you type: 
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AH-TAH-REE = ATARI 
and Voicebox will deliver your special pronuncia- 
tion every time you enter the word ATARI. Simple, 
right? You can add or remove entries from a diction- 
ary or review its entire contents at any time. Disk 
users can create lots of dictionaries on a single disk- 
ette and retrieve any one of them in seconds. And the 
software includes a handful of sample dictionaries to 
get you started. 

Marvelous, but. . . 

As a piece of hardware, Voicebox is a delight. It's 
compact, inexpensive, easy to connect and relatively 
foolproof. The BASIC demonstration programs 
aren't coded very efficiently, but they do a fairly 
good job of showing off the system's features anci 
possibilities. 

The least attractive feature of the Voicebox pack- 
age is the documentation. It's disappointing. There 
are no printed listings of the programs and no expla- 
nation of the machine-language routines that drive 



the Voicebox unit. And the instructions for making 
Voicebox work with your own software are skimpy 
at best. 

It isn't too difficult for an experienced program- 
mer to wade through the source code and figure out 
what's going on. But beginners will probably be dis- 
couraged by the strange character strings that make 
up Voicebox's machine-language software interface. 
Later releases of Voicebox will hopefully include a 
more complete explanation of the software and (dare 
we hope?) a technical description of the system. 

The Bottom Line 

For the majority of ATARI users who want to add 
speech to their programs, The Alien Group's Voice- 
box is probably the best choice. It delivers reason- 
ably well-articulated speech with a minimum of fuss 
and cost. Voicebox isn't as versatile or well docu- 
mented as the Votrax Type 'N Talk or Street Echo- 
GP units, but for sheer dollar value it's a tough act to 
beat. D 



SOFTWARE REVIEW: 
TRIVIA TREK 

Swifty Software 

64 Broad Hollow Rd. 

Melville, NY 11747 

$29.95 32K Disk 



Review by the Program Doctors 



TRIVIA TREK, the newest release from Swifty 
Software, written by Jerry White, is just that — a fun 
trek through massive amounts of information. This 
game is reminiscent of one of the very first com- 
puterized games to infiltrate the pinball arcades. 
Remember, for a quarter you could pick one of the 
categories and test your knowledge on sports, movie 
stars, TV, etc. Well, the computer got smaller and 
better and the game got bigger and bigger. 

TRIVIA TREK has fifty different categories each 
containing ten multiple choice questions. You have 
the option to choose your own category or have the 
computer do it for you. Since this game can be 
played by one or two players, the random selection 
of categories will no doubt head off any arguments 
about picking only subjects the players know well. 
The categories cover a range of subjects from the 
expected (TV, Movie Stars, Pop Music, World 
Capitals) to the unexpected (Bathroom, TV Soaps, 
Body Language, Shopping) and are interesting and 
imaginative. The questions are all multiple-choice 
and the answer choices (four for each question) are 
interspersed with jerry White's warped sense of 
humor. 



The only drawback to this program is that once 
you have gone through all the questions you will 
know most of the answers, you will not want to play 
any more and no one will want to play with you. 
Well, guess what? It's not a drawback at all because 
the best feature of this program (at least in our 
opinion) is you can create and edit your own trivia 
files. 

This function has been designed to be simple to 
use, and it is a very easy (and fun) task to compile 
your own questions and answers. We made up three 
so far, but instead of using "standard" trivia 
categories, we chose to personalize them even more. 
We wrote a file about our son, one about our friends, 
and one about A.N.A.L.O.G. Magazine. Use your 
imagination and like us, you too can make your 
parents feel inadequate, antagonize your friends, and 
possibly get fired from the A.N.A.L.O.G. staff. 

Once again, Jerry White has shown how much can 
be accomplished with graphics and sounds using 
BASIC. This is a great party game and a good way to 
get "non-computer" people addicted to your 
computer. This program is a real treat and provides 
some welcome relief for those of you who are 
"arcaded out". 

Sample Trivia Trek Question 
The Program Doctors think that Jerry 
White's TRIVIA TREK is: 

1. Fun & addicting 

2. Well written and well-documented 

3. A relief from shooting invaders, 
pounding apples and eating dots 

4. All of the above and more 
That's all, folks! D 
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MIXING CTIA AND GTIA GRAPHICS 



by William W. Hough 



The GTIA television interface chip provides 
expanded color graphics capability for the ATARI 
400 and 800 computers. My first introduction to 
GTIA style graphics was an article by Clyde Spencer 
in the July, 1981 issue of COMPUTE ("ATARI 
Graphics: 16 Colors!"). Before I had my ATARI 
television interface converted from a CTIA to a 
GTIA chip, I used the techniques in that article, and 
a lot of experimentation, to get eight distinctly 
colored boxes on one horizontal line. Five of the 
eight boxes, however, were distinguishable only 
because of alternating colors within the box. 

When I first ran my program on an ATARI 
equipped with a GTIA chip, I expected to see a 
greatly different graphics presentation. To my 
surprise, there was no difference. After obtaining 
"De Re ATARI", and reading the appendix on 
GTIA graphics, I understood why. The GTIA is 
upward compatible with the CTIA, and I needed to 
do a bit of POKEing around to activate GTIA 
graphics. After a few modifications, my program 
produced seven lovely, controllable colors (keep 
reading to find out what happened to the eighth). 
However, my program contained a custom display 
list and presented all three styles of text on the screen 
as well as the colored boxes. With GTIA graphics 
enabled, my text became colored blobs. This led to a 
learning experience, which in turn prompted me to 
write this article. Should you ever need to mix GTIA 
map mode graphics with text, I hope it will help you 
avoid some of the pitfalls I encountered. 

If you don't know whether your ATARI has a 
CTIA or GTIA chip, type in and RUN the following 
program: 

18 GRAPHICS le 
28 GOTO 20 

If the screen turns and remains black, you have 
GTIA; if it returns to blue, you've got CTIA. 

We will start with a Graphics 8 display, and 
modify it until we have mixed graphics 10 and zero 
on the screen. In between, there will be plenty of 
room for experimentation. If your ATARI has a 
CTIA rather than a GTIA chip, take heart, as this 
article will show you how to get the most out of it. 
You will be able to see examples of many colors on 
the screen simultaneously, and the alternating color 
effect described by Spencer. I also promise to tell you 
when to stop reading. 

After a program segment has been RUN and you 
are tired of looking at the screen, program lines may 



be listed and changed directly in the text window. 
You should enter the suggested direct commands in 
the text window, as they will change the colors 
already on the screen. For major program additions, 
and when you GTIA owners can't read the text 
because it has turned to blobs, press SYSTEM 
RESET or type "GR.O" to return to a mode zero 
display. Here is the starting program: 

10 GRAPHICS 8 

19 REM : POKE SOME COLORS INTO ALL 9 C 

OI.OR REGISTERS 

28 FOR 1=8 TO 8:P0KE 784+1,18+38*1 

30 NEXT I 

69 REM : DRAM SOME BOXES ON THE SCREEN 

78 FOR 1=8 TO 8 

80 COLOR I 

90 FOR K=l TO 6 

100 PLOT 9«I+K,ie:DRAHT0 9«I+K,15e 

118 NEXT K:NEXT I 

119 REM ; PRINT SOME MODE TEXT 

128 ? "DEMO OF MIXED CTIA & GTIA GRAPH 

ICS" 

148 END 

You should see four black (really, very dark blue- 
green) vertical bars on the left of the screen. As the 
book says, Graphics 8 is a one color, two luminance 
mode. The luminance of the bars is from color 
register 709 (in this case, 160, or very dark), and the 
background is from 710 (in this case, 190, or light 
blue-green). Mode zero text uses these same registers 
in a like way. Try POKEing 709 with 174; this sets 
the luminance of the bars and the text to the same as 
the background. Why only four bars? There really 
are nine. Try replacing "I" in line 80 with "1" (odd 
number), and you will see all nine. Then try "2" 
(even number), and they will all disappear. 

If you would like to observe the color artifact 
phenomenon at this point, change the "2" in line 80 
to "1", and change the second "9*I+K" in line 100 
(in the DRAWTO statement) to "9+I*K". You 
should now see two new colors where the bars 
overlap. For a pretty combination, type the direct 
statement: "POKE 709,30". You can try other 
POKES to 709 and 710. 

We shall now tell the operating system to interpret 

the screen memory as Graphics 10. Return the 

program to its original form (change line 80 to 

"COLOR I" and line 100 to "DRAWTO 9*1+K"), 

and add the following: 

49 REM : TELL OS YOU WANT GRAPHICS 18 
58 POKE 87,18 

What magic! More colors, wider bars. All but two 
are broken, and you can't see the first because it is 
the same color as the background. Change "I" in line 
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80 to "5+5*1". Now the first three bars are distinct 
sohd colors, and all nine are present. You can try 
some POKES to 709 and 710, but until you add the 
next program segment, the full flexibility of CTIA 
graphics won't be apparent. 

To this point, we have been using the two-color 
ANTIC mode 15 (Basic mode 8) with a little trickery 
thrown in. The only involved color registers 
(actually their shadow registers) are 709, 710, and 
the background register, 712. We can go after more 
colors by invoking ANTIC mode 14, which is a four- 
color mode not supported by BASIC. This takes 
some modification to the display list. Add the 
following subroutine and its call: 

40 GOSUB 208 

198 REM : SUBROUTINE TO ENABLE ONTIC M 

ODE 14 

193 REM : FIND BEGINNING ADDRESS OF DI 

SPLftV LIST 

200 DL=PEEKf560J*256»PEEKC561J 

209 REM : TURN ANTIC OFF 

218 POKE 559,0 „„„ 

219 REM : SET OP CODES IN DL FOR ANTIC 
MODE 14 

228 POKE DL+3,7«:P0KE DL+99,78 

230 FOR I=DL+6 TO DL+98 

248 POKE 7, 14: NEXT I 

250 FOR I=0L+182 TO DL+166 

268 POKE I, 14: NEXT I 

269 REM : TURN ANTIC ON 
278 POKE 559,34: RETURN 

When the new program is RUN, you should have 
a different set of colors. You should play with 
POKEing 708 through 710 and 712 with any number 
between and 255. This is the type of experimenting 
I did to obtain eight distinguishable colored boxes. 

We have not yet taken advantage of your GTIA 
chip, if indeed you have one. That's next. (If you 
have CTIA, stop here and save the rest of the article 
until you have your computer upgraded with a GTIA 
chip.) 

First, remove line 40 and change line 80 back to 
"COLOR I". The available documentation (eg. De 
Re ATARI) tells us that the high-order bits of the 
PRIOR register must be set to invoke GTIA 
graphics. For Graphics 10, we need to set the highest 
order bit to 1. We will do this through PRIOR's 
shadow register, GPRIOR. Add the following: 
59 REM : SET HIGH BIT OF GPRIOR TO INU 
OKE GTIA GRAPHICS 
68 POKE 623,128 

You now have lots of sohd colors, the first being 
the same as the background. But the text has turned 
to those colored blobs. The next addition is a 
subroutine and its call that adds a display list 
interrupt to clear the high-order bit of PRIOR just in 
time for the Graphics (CTIA) text: 

48 GOSUB 308 ,„ „,, 

298 REM : SUBROUTINE TO CLEAR HIGH BIT 
OF PRIOR 

299 REM : FIND BEGINNING ADDRESS OF DI 
SPLftV LIST 

388 0L=PEEK(568}+256«PEEKC561> 

389 REM : TURN ANTIC OFF 

319 REM^:^5ET®DLI BIT ON LINE BEFORE N 
ODE 8 TEXT 



320 POKE DL4166,143 

329 REM : POINT DLI VECTOR TO ROUTINE 

ON PAGE 6 

338 POKE 513,6:P0KE 512,8 

339 REM : POKE IN DLI ROUTINE 
348 FOR 1=1536 TO 1546 

358 READ AiPOKE I,A:NEXT I 

360 DATA 72,169,8,141,10,212,141,27,28 

8,104,64 

369 REM : ENABLE DLI 

370 POKE 54286,192 

379 REM : TURN ANTIC ON 

380 POKE 559,34:HETUHH 

The text is back. You can POKE any of the color 
shadow registers, 704 through 712, with any number 
between and 255. You will see that each bar 
corresponds to a color register (the first bar and the 
background are colored by 704). Be careful of 709 
and 710, lest your text disappear into the 
background. 

OK, now what was all this stuff about only seven 
colors and pitfalls? The seven color problem occurs 
if one wants, as I did, the same colored background 
with both the CTIA and GTIA modes. The GTIA 
mode takes its background color from shadow regis- 
ter 704, and the CTIA mode from shadow register 
712. If they are to be the same, then the last color will 
vanish. POKE 712 with 10 and you'll see what I 
mean. If I hadn't come to really respect the designers 
of the ATARI for its marvelous capacities, I'd call 
this a design defect. Let's just say I don't understand 
why they used two different registers for back- 
grounds. The solution is to change the CTIA back- 
ground register on the fly with the same display list 
interrupt that switches to a GTIA mode. But be 
careful, you must change the actual hardware regis- 
ter, 53274, and not its shadow, 712. 

In the demo, we started each screen with a GTIA 
mode, and switched to a CTIA mode. This enabled 
us to invoke GTIA graphics through GPRIOR. This 
only works for the top-most mode on the screen. For 
subsequent changes, you must toggle the bit or bits 
of the hardware register PRIOR at address 53275. 
This is exacdy what the sequence 141,27,208 in the 
DLI routine does. It tells the 6502 to put the con- 
tents of its accumulator, in this case 0, into address 
27+208*256=53275. To go the other direction 
(CTIA to GTIA), you would change the sequence 

169,0 to 169,128. 

Being an absolute novice at machine language, 
changing the high-order bit of PRIOR with a display 
list interrupt caused me the most difficulty. I thought 
I could read it and then simply change it. 1 tried lots 
of schemes, many of which met with a frustrating bit 
of success. My display started with two different 
CTIA modes, then a GTIA mode, then CTIA, ano- 
ther GTIA, and finally CTIA text. The screen would 
change to GTIA graphics at the first transition, but 
then remain in the GTIA mode for the remainder of 
the screen. I spent a long time looking at colored 
blobs instead of CTIA text on the lower portion of 
the screen. 

You experts out there have probably already de- 
duced my error. All my schemes involved reading 
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PRIOR and then changing that high-order bit. Well, 
you can't read PRIOR. It is a hardware register, and if 
you try to read it, it returns decimal 15 independent 
of its contents. While I was setting the high-order hit 
at the first transition from a CTIA to a GTIA mode, I 
was also setting it for each successive transition until 
the vertical blank interrupt came along and restored 
it to zero. 

The solution was simple. I took a suggestion from 
De Re, set the bit, and as the last part of the DLI, 
changed the DLI pointer to point to another DLI 
routine. In this routine, I cleared the bit and set the 
pointer back again. 

In case machine language scares you like it scared 
me before I was forced to learn a little bit about it for 
these DLI routines, don't let it. I would recommend 
the book "6502 Assembly Language Programming" 
by Lance Leventhal (OSBORNE/McGraw-Hill). It 
has everything you need to know to write short rou- 
tines like the one used in the demo without an 
Assembler/Editor cartridge. D 



GETTING SERIOUS ABOUT 
PROGRAMMING YET?I? 





WITH THE WORLD'S MOST COMPLETE 
POCKET PROGRAMMING AID. 

16 comprehensive pages 

• error codes 

• basic commands with 
abbreviations 

• peel< and pol<e locations 

• internai codes 

• machine ianguage aides 

• much, much more!! . 

Get Yours Now^°"^^ 

(dealer ad space available) 

ORDER NOW-CASH, CHARGE OR C.O.D. 

ADVANCED COMPUTiNG ENTERPRISES 
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(913) 262-2875 • (913) 631-4180^^ 

ATARI IS A REGISTERED TRADEMARK OF ATARI INC 



REFERENCE : 



CARD 




ATARI 


® 400/8( 


)0 




SOFTWARE 




Title 


Requires List 

SYNAPSE 


Ours 


Nautilus 


32K T,D 29.95 


23.95 


Shamus 


32K T,D 29.95 


23.95 


Protector 


32KT,D 29.95 


23.95 


Chicken 


16K T,D 29.95 


23.95 


Slime 


16K T,D 29.95 
ROKLAN 


23.95 


Gorf 


8K C 49.95 


39.95 


Wizard of War 


BK C 49.95 
DATASOFT 


39.95 


Canyon Climber 


16KT,D 29.95 


23,95 


Sliooting Arcade 


16KT,D 29.95 


23.95 


Pacific Coast Hwy. 


16K T,D 29.95 


23.95 


Clowns & Balloons 


16KT,0 29.95 
K-BVTE 


23.95 


K-Razy Stiootout 


8K C 49.95 


39.95 


K-Razy Kritters 


8K C 49.95 


39.95 


K-Razy Antics 


8K C 49.95 


39.95 


K-Star Patrol 


8K C 49.95 
BRODERBUND 


39.95 


Apple Panic 


48K T,D 29.95 


23.95 


Ctioplifter 


48K D 34.95 


27.95 


Midnigttt Magic 


48K D 34.95 


27.95 


Track Attack 


48K 29.95 
ON - LINE 


23.95 


Frogger 


16KT,D 34.95 


27.95 


Crossfire 


16KT,D 29.95 


23.95 


Tlirestiold 


40K D 39.95 


31.95 


Mouskattack 


32K D 34.95 


27.95 


Jawbreaker 


18K T,D 29.95 


23.95 


MISCELLANEOUS 




Raster Blaster 


32K D 29.95 


23.95 


Bug Attack 


16K T,D 29.95 


23.95 


Rear Guard 


16KT 19.95 


15.95 


Night Rally 


24K T 29.95 


23.95 


Star Blazer 


48K 31.95 


25.95 


All Baba & 40 Thieves 


32K D 32.95 


26.95 


Sneakers 


48K D 29.95 


23.95 


Cycled 


48K D 29.95 


23.95 


Snake Byte 


48K 29.95 


23.95 


ZorkI 


32K D 39.95 


31.95 


Zork II 


32K 39.95 


31.95 


Deadline 


32K 49.95 


39.95 


Temple of Apshai 


32K T,D 39.95 


31.95 


Match Racers 


16KT,D 29.95 


23.95 


Andromeda 


24K D 34.95 


27.95 


Pathfinder 


32K D 34.95 


27.95 


Warlocks Revenge 


40K D 34.95 


27.95 


Lord of Karma 


40K T,D 24.95 


19.95 


Empire of the Overmind 


40K T,D 34.95 


27.95 


PooH.S 


48K D 34.95 


27.95 


Preppie 


16KT 24.95 


19.95 


Rescue at Rigel 


32K T,0 29.95 


23.95 


Crush, Crumble, Chomp 32K T,D 29.95 


23.95 


Voyager 


40K D 24.95 


19.95 


Galactic Chase 


16KT 24.95 


19.95 


T(Tape) 


D(Disk) C (Cartridge) 
******** 




Ordering: 24 hour shipment of in stock items tor money order. 


cashiers or certified check. VISA & MC give card number, expiration 


date, and add 3%. All personal checks must clear. Minimum shipp- 


ing $2.00. COD'S accepted. Conn, residents add 7.5% sales tax. 


Prices subject to change without notice. 




Myriad Software 




437 MIDDLEROAD TURNPIKE 




WOODBURY, tT 06798 






(203) 263-5524 




*ATARt' is a Trademak of Atari, Inc. 
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SOFTWARE REVIEW: 
DATA- SOFT LISP 

Data-Soft 

19519 Business Drive 

Norttvridge, CA 91324 

$149.95 Retail 



by Carl J. Patterson 



Introduction: 

Writing a review of Lisp is a little difficult when 
not too many people know about Lisp in the first 
place. So this article will start out with Lisp in gener- 
al, and then review a specific implementation. There 
are many conceptions about what Lisp is like — an 
artificial intelligence language, a memory waster, a 
group of parentheses for syntax. So, in part, I'll have 
to give you my own feelings about the langauge. 

On Lisp: 

First of all, I like Lisp. The ideas behind it, its 
applications and its elegance outweigh all those 
parentheses, and its speed. Lisp is not solely another 
programming language, but also a programming en- 
vironment, due to its extensibility and power. 

Lisp is short for LISt Processing language. Its 
strength is derived from the representation of both 
programs and data as lists, and from operators that 
work on any list structured data — possibly a 
program. You can, by looking at listings 1 and 2 , get a 
quick flavor of the language. Oh yes, SETQ, takes the 
first argument and gives it the value of the second 
and COND is the same as CASE statement. Listings 
1, 2, and 3 all are the same program; Usting 1 is a 
recursive version, listing 2 is a straightforward 
version, and listing 3 is a version in BASIC. 

Why aren't more people using this language? It 
looks strange. Availability is certainly one problem, 
and memory is another, ( Data-Soft requires 48K and 
a disk). It is a tad slow — depending on the applica- 
tion, and well, it does have many parentheses. But 
these are trade-offs in any language, BASIC vs. 
Assembler, for example. Once one understands the 
inherent limitations of any language, including its 
implementation, the reasons for using it are also 
clearer. 

Don't get impatient, we will illustrate where Lisp 
might be used. The field of artificial intelligence is 
one place, where one would like to construct 
"expert" systems that can draw hypotheses from 
principles and data. In fact, some oil companies use 
such a system to keep track of the confusion of inter- 
related geological facts and rules so they can decide if 
a piece of land may have oil under it. I'm looking at 
another application, working on a program to do 
manipulation of symbolic expressions for formal 
logic. If I can understand how to make it general 



enough, I'll also use it for matrix manipulation, 
tensor calculation and other goodies. In short, I want 
a general purpose mathematical assistant. 

On Data-Soft's Lisp: 

Data-Soft has implemented Lisp for the ATARI 
with 48K and a single drive. It comes with an 86 page 
manual, a single disk, and a book — Lisp, by 
Winston and Horn. The book is so good that I had 
bought it before I bought Lisp. It is the single best 
book on the subject for a beginner, and an excellent 
refereace. The system itself is successfully modelled 
after Inter-Lisp with such ATARI specific com- 
mands as sound, color, stick, trigger and peek/poke. 
In addition all the graphics modes are available. 

On booting up, I was in control of Lisp version 
2.1, so without reading the manual, (version 2.0), I 
typed in: 

Listing 1. 

(DEFINEQ,FIBO (N) 
(COND( (EQ,N 2) I) 
((EQ,N 1) 1) 

(T (+ (FIBO( SUB N 1) ) (FIBO( SUB N 
2)))) 
) 

) 
which defines a program called FIBO recursively, 
that is, in terms of itself. It worked, generating the 
Nth Fibonacci number, (i.e. a number from the 
sequence 1 1 2 3 5 8 13 21 34 etc. Do you know the 
rule for generating this sequence?) 

With a slightly more complex program it becomes 
necessary to use the editor. The commands take a 
single evening to understand and use. Written in 
Lisp, the editor is a joy. (Take it from someone who 
tried, be careful editing the editor). It can step in to 
different levels of parentheses, remove or insert 
parentheses or expressions, and pretty-print listings 
as the above program was done. This last feature 
helps to find both logical and structural faults. The 
editor also has features to save and retrieve files, 
which like almost everything else in Lisp, is a list. 

Standard Lisp I/O funcdons of READ, READA 
and READC are implemented as are PROG, 
PROGN, MACRO, DEFINE and DEFINEQ,. For 
those acquainted with MACLISP there is a package 
that simulates the actions of many MACLISP 
functions, (including property lists — for Inter-Lisp 
uses A-lists). Also included are: a program for a light 
show demo; and RPN calculator program; yet 
another version of ELIZA and Towers of Hanoi; 
CLISP, a program which changes algebraic expres- 
sions into valid Lisp expressions; and a worthwhile 
utilities package. 

The manual is a pleasant surprise. Looseleaf 
bound with plenty of examples and a clarity usually 
reserved for a cold drink on a hot summer day, it is 
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a refreshingly complete reference for this imple- 
mentation of Lisp. 

Listing 2. 

(DEFINEQ, FIBO (LAMBDA (N) 
(PROG (XX Nl N2 COUNT) 
(SETQXX 1) 

COND ( (EQ,N 2) RETURN XX) ) 
( ( EQ,N 1) (RETURN XX) ) ) 
(SETQ, COUNT 2) 
(SETQ,N2 1) 
(SETQ,N1 1) 
LOOP 

(SETQ.X(+ Nl N2) ) 
SETQ,N2 Nl) 
(SETQNl X) 

SETQ. COUNT (+ COUNT 1) ) 
(COND ( (EQ,COUNT N) (RETURN XX) ) ) 
(GO LOOP) ) ) ) 

A non recursive version of the program in Listing 

Listing 3. 

10 INPUT N 

20 N1 = 1:N2=1 

30 IF N=l OR N=2 THEN X=l:GOTO 90 

40 FOR 1=3 TO N 

50 X=N1 + 2 

60 N2=N1 

70 N1=X 

80 NEXT I 

90 PRINT X 

The problems that exist are minor, the worst being 
that GENSYM from the MACLISP package does not 
work. Although peek and poke are implemented 
there is no simple way to transfer control to a 
machine language program and this makes the prob- 
lem of speed painful. The execution speeds of the 
above programs are 16, 1, and 1/6 seconds respect- 
ively, (which says the algorithm used affects speed 
greatly ). But speed of execution is not the reason one 
would use Lisp anyway, (or BASIC for that matter). 
Rather, applicability to a given problem is the reason 
for using Lisp. Consider a program like ELIZA. It 
can be written in Assembly language and run much 
faster than Lisp. But the time to write or modify the 
program far outweighs the advantages in speed. 

The final problem seems to result from some 
difficult choices facing the people when they wrote 
the language. Lisp usually has infinite, (or large), pre- 
cision arithmetic. But this version uses the routines 
in the OS rom. This saves space — in not having to 
write another routine — but means it has the same 
limits of accuracy as ATARI BASIC, and its always 
floating arithmetic. 
Summary: 

In summary. Lisp is not a language for everyone. 
But if you have the application Data-Soft Lisp is a 
good choice. Do I like the product? Emphatically, yes 
— and if I didn't have it, I'd buy it! D 
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PERCOM D/D DISK DRIVE $589X)0 
PERCX>M ADD-ON DRIVE $359.00 
NEC 8023A-C PRINTER $475.00 



AXIOM GP-1 00 PTR $299.95 

ENTERTAINER $66.95 

EDUCATOR $114.95 

PROGRAMMER $52.00 

COMMUNICATOR $299.00 

BOOKKEEPER (KIT) $169.95 



AXIOM IMP-4 PTR $489.95 

32K RAM (INTEC) $89.95 

32K RAM (MICROTEK) . $99.95 
32K RAM (MOSAIC) .... $118.95 

48K RAM (INTEC) $189.95 

128KRAMDISK $425.00 



SUPER DISCOUNT SOFTWARE 

ADVENTURE INTERNATIONAL 

Adventures 1,2&3(D) $28.95 

Adventures 4, 6 & 6 (D) $28.95 

Adventures 7, 8 & 9 (D) $28.95 

Adventures 10, 11 & 12(D) $28.95 

Star Trek 3.5 (D) $17.95 

RearGuard (D) $17.95 

Adventures M2Each(C) $14.95 

Preppie(C/D) $20.95 

War(D) $18.95 

Commbat(D) $18.95 



APX 

Eastern Front 1941 (C/D) $22.95 

Extended Fig-Forth (C) $29.95 

Avalanche (C) $16.95 

Outlav»;Hovuitzer(C) $16.95 

ATARI INCORPORATED 

Microsoft Basic (D) $65.95 

Macro Assem. & Editor(D) $65.95 

Assembler Editor (R) $44.95 

Basic Cartridge (R) $44.95 

Pac Man (R) $32.95 

Centipede (R) $32.95 

Caverns of Mars (D) $28.95 

Missile Command (R) $26.95 

Star Raiders (R) $32.95 

Asteroids (R) $26.95 

Conversational Lang. Ea. (0) . $43.95 

Music Composer (R) $30.95 

Super Breakout (R) $26.95 

Computer Chess (R) $26.95 

My First Alphabet (D) $25.50 

AUTOMATED SIMULATIONS 

Invasion Orion (C/D) $17.95 

Rescue Al Rigel (C/D) $20.95 

Crush Crumble &Ch. (C/D) ....$20.95 

Temple of Apshai (C/D) $28.95 

Ricochet (C/D) $14.95 

Star Warrior (C/D) $28.95 

Dalestones of Ryn (C/D) $14.95 

Dragon's Eye (D) $20.95 

AVALON HILL 

Empire of Overmind (D) $24.95 

Dnieper River Line(D) $20.95 

Voyager (D) $17.95 

Galaxy(D) $17.95 

B-1 Nuclear Bomber (C) $11.95 

Lords of Karma (C) $14.95 

Guns of Fort Defiance (C) $14.95 

Computer Stocks & Bonds (D) $15.95 

BRODERBUND SOFTWARE 

Apple Panic (D) $20.95 

Star Blazer (D) $22 95 

Choplifter(D) $25.95 

Davids Midnight Magic (D) .... $24.95 

DATA SOFT 

Canyon Climber (D) $20.95 

Pacific Coast Hwy (D) $20.95 

Clowns & Balloons (D) $20.95 

D = DISK C = CASSETTE 



EDU-WARE 

Compu-Read (D) $20.95 

Compu-Math Frac. (D) $28.95 

Compu-Math Dec. (D) $28.95 

Compu-Read (C) $14.95 

INFOCOM 

2orkl(D) $28.95 

Zork II (D) $28.95 

Deadline (D) $35.95 

IN-HOME SOFTWARE 

Crypts of Terror (D) $24.95 

Alien Swarm (D) $24.95 

Intruder(D) $24.95 

LJK 

Letter Perfect (D) $108.95 

Mail Merge/Utility (D) $20.95 

Data Perfect (D) $78.95 

ON-LINE 

HI RES Wi2& Princess (D) $23.95 

HI RES Mission Asteroids (D) .. $17.95 

Crossfire (C/D) $20.95 

Mousekattack(D) $24.95 

Jawbreaker (C;D) $20.95 

Frogger(C/D) $24.95 

Threshold (D) $28.95 

Ultima I (D) $28.95 

Ultima 11(D) $43.95 

QUALITY SOFTWARE 

AN Baba & 40 Thieves (D) $23.95 

OS Forth (D) $58.95 

Starbase Hyperion (D) $16.95 

Fastgammon(C) $14.95 

STRATEGIC SIMULATIONS 

The Shattered Alliance (D) $28.95 

Tigers In The Snow (C/D) $28.95 

Battle of Shiloh (C/D) $28.95 

SYNAPSE SOFTWARE 

Protector (C/D) $20.95 

Shamus (C/D) $21.95 

Nautilus (C/D) $20.95 

File Manager 800 (D) $72.95 

SYNCRO 

Alien Hell (D) $14.95 

Maze of Death (D) $14.95 

Mar Tesoro (D) $17.95 

USA 

3-D Supergraphics (C/D) $28.95 

Survival Adventure (C/D) $17.95 

Atari World (D) $43.95 

MISCELLANEOUS SOFTWARE 

Gorf(D) $29.95 

Master Type(D) $25.95 

K-razy Shootout (R) $35.95 

Pool 1.5(D) $24.95 

Pool 400 (R) $29.96 

Sneakers (D) $21.95 

Space Eggs (D) $21.95 

Wizard of Wor (D) $29.95 

Word Race(D) $18.97 

Visicalc (D) $176.95 

R = ROM (CARTRIDGE) 



THE ABOVE PRICES ARE FOR PREPAID ORDERS 

WRITE FOR FREE CATALOG: INDICATE APPLE OR ATARI 

Add S2 00 Stiipping per software order Hardware 
Shipping, call lor cost. Calif residents add 6'/!% 



COSMIC 
COMPUTERS 



UNLIMITED 



sales lax Casliiers Checks or Money Orders tilled i 
same day. Personal checks require 2 weeks lo " 
clear Master Card and Visa OK lor software only 



add 3% surcharge. 

date and signature. 



Include card no . expiration 



• MON-SA 
P. 228 N. I 

P DIAMON 
rrrwr'. 



(714)861-1265 



ORDER LINES OPEN 
MON-SAT 8 am - 9 pm 

mA^«'iil,ln''25n^^JP''o.5Pr '^''P'-E IS A TRADEMARK OF APPLE COMPUTER 

DIAMO ND BAR, CA. 91765 atari is a trademark of atari inc 
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MORE THAN JUST ANOTHER PREnY nCE, 



Says who? Says ANSI. 

Specifically, subcommittee X3B8 of the American 
National Standards Institute (ANSI) says so. The fact 
is all Elephant™ floppies meet or exceed the specs 
required to meet or exceed all their standards. 

But just who is "subcommittee X3B8" to issue such 
pronouncements? 

They're a group of people representing a large, 
well-balanced cross section of disciplines— from 
academic, government agencies, and the computer 
industry. People from places like IBM, hIewlett-Packard, 
3M, Lawrence Livermore Labs, The U.S. Department 
of Defense, Honeywell and The Association of Com- 
puter Programmers and Analysts. In short, it's a bunch 
of high-caliber nitpickers whose mission, it seems, in 
order to moke better disks for consumers, is also to 



make life miserable for everyone in the disk-making 
business. 

How? By gathering together periodically (often, 
one suspects, under the full moon) to concoct more 
and more rules to increase the quality of flexible 
disks. Their most recent rule book runs over 20 single- 
spaced pages— listing, and insisting upon— hundreds 
upon hundreds of standards a disk must meet in 
order to be blessed by ANSI. (And thereby be taken 
seriously by people who take disks seriously.) 

In fact, if you'd like a copy of this formidable docu- 
ment, for free, just let us know and we'll send you 
one. Because once you know what it takes to make 
on Elephant for ANSI . . . 

We think you'll want us to make some Elephants 
for you. 



ELBIUNl HEAVY DUTY DISKS. 

For a free poster-size portrait of our powerful pachyderm, please write us. 

Distributed Exclusively by Leading Edge Products, Inc., 225 Turnpike Street, Canton, Massachusetts 02021 

Call: toll-free 1-800-343-6833; or in Massachusetts call collect (617) 828-8150. Telex 951-624. 
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At the rate we're going, 
we'll have these pages 
filled by 2083. And by 
2084, people will be 
clamoring for the next 
Infocom creation. 

We hate to disappoint our 
public. So we keep you waiting. 
Because while the software facto- 
ries are cranking out arcade game 
after arcade game, pulpy adven- 
ture after trite fantasy, we're 
writing and rewriting, honing and 
perfecting. Before a single person 
enters one of Infocom's worlds, 
it must be crafted into a living, 
riveting, definitive experience. 



WECAN! 

Judging from the public's reac- 
tion, it's worth the wait. For 
instance. Creative Computing 
welcomed DEADLINE'" as 
"thoroughly engrossing and real- 
istic," while a Softalk readers' 
poll recently voted ZORK™ I and 
ZORK II the most popular adven- 
tures of 1981. 

And now, for the moment, your 
wait is over. ZORK III, your final 



step in the underground 
trilogy, and STARCROSS,™ 
an exploration of a new 
dimension in science fiction, 
are ready for you. 
Look at them up there, 
the little worlds of Infocom. As 
our universe expands, compan- 
ions will come to help fill that vast 
expanse of white space. Till 
then, they'll continue to stand 
alone as the best of all possible 
worlds. 

inFocoia 

55 Wheeler Street, Cambridge, MA 02138 



Infocom's worlds are available for Applef Atarif IBM, TRS-80f Commodore, NEC, Osborne, CP/Mf and DEC." 

Apple is a registered trademark of Apple Computer. Inc. Atari is a registered trademark of Atari, Inc. TRS-80 is a registered trademark of Tandy Corporation. 
CP/M is a registered trademark of Digital Research, Inc. DEC is a trademark of Digital Equipment Corporation. 
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RELIEVE YOUR FLOATING POINT BLUES 



by Mike Sueirro 



You say you've got a great idea for a new wargame 
but the 40 X 40 dynamic battlefield matrix blew the 
socks off your memory? Or perhaps you have what 
could be THE benchmark for a chess program in 
BASIC, but the three 8X8 board matrices only leave 
enough memory to look one move ahead? These are 
typical (if somewhat exaggerated) problems associ- 
ated with matrices and arrays in ATARI BASIC. 
BASIC arrays and matrices simply devour memory, 
and even constants are hungry critters if they're not 
managed carefully. The source of this problem is the 
fact that all numbers in ATARI BASIC are repre- 
sented in floating point — this includes constants, 
variables, arrays — all of them. To represent a float- 
ing point number requires 7 bytes for a constant and 
6 bytes for each element in an array or matrix. What 
we need are a variety of methods that allow us to 
handle these mind blowers without sacrificing any 
more memory real estate than necessary. So, let's 
look at some ways to really cut down your memory 
needs. But hang on! The ride might get a little 
bumpy. 

Constant Pain 

The BASIC Reference Manual shows us one way 
out of the forest. On page 62 it says that a constant 
requires 7 bytes of memory at each use, but a vari- 
able only needs one byte each time it's used (except 
for an 8 byte overhead when we initialize the vari- 
able). That means we save 6 bytes every time we can 
use a variable in place of a constant. Terrific! In one 
program I recently played with, the constant zero was 
used 82 times. By replacing each constant with a 
variable whose value was zero I was able to save 
nearly 500 bytes of memory. And that was only one 
of many constraints used in the program. 

If you find you're having trouble keeping track of 
all these variables, you might consider setting up a 
numbering scheme. One method is to let A= 1 , B=2 , 
. . . , 1=9, and J=0. Or, if you like to use J as a dummy 
variable, then let Z=0. Now your variables become 
easy to construct and interpret. For example, the 
value 150 becomes AEZ while the line number 5240 
becomes EBDZ. Piece of cake, right? 

There are only two constraints to using this tech- 
nique. First, due to the 8 byte overhead for a vari- 
able, be sure you use the constant at least twice, 
preferably three times before you substitute a 
variable. Second, the ATARI BASIC Variable Table 
has room for only 128 variables. If you approach this 



limit, you'll have to be more selective in choosing 
your converts. Till then, though, it's happy hunting. 
And don't forget that you can use these variables for 
line numbers in GOTO's and GOSUB's as well. 

An Array of Possibilities 

Converting constants to variables is a neat trick, 
but it still doesn't help us deal with those greedy 
arrays and matrices. We still have to find a way to 
overcome paying the floating point overhead when 
we use these tools. In Issue 7 of A.N.A.L.O.G. 
(RESTORE Your Mental Health) I showed you how 
to reduce memory consumption in your numeric 
and string arrays and matrices. There was one hitch, 
though. The data in the arrays had to be constant. A 
good deal if you can use it, but it still doesn't solve 
the problems of a dynamic array or matrix. 

Here's how we handle those beasties. If you're 
using integer data only, or if all your numbers can be 
scaled to integer values, then we can convert your 
numeric array or matrix to a string. One hitch, 
though. We're going to convert your numeric data to 
ATASCII characters and store them in a string. This 
means that your data must fall into the range of 
0-255, or be scaled into that range, i.e. 6325-6580 
would fit since we can scale the data into the range 
6325 + to 6325 + 255. But don't run off if your 
data exceeds this range. There's hope for you too. 

Within the ATARI all characters are represented 
by an internal code. However, the ATARI can also 
represent these characters in ATASCII code. Given 
the string functions available to us, the ATASCII 
code is what's important for our application. What 
we need to do is develop a method that allows us to 
address the elements of a string as if they are part of 
an array or matrix. We also need a technique for 
converting our data to character codes and back 
again. Since it's the easiest, let's try the last item first. 

Switching between numbers and string characters 
is fairly simple. We just use the string functions 
CHR$(X) and ASC(X). The CHR$(X) function 
identifies our number as the ATASCII code for a 
particular character that we can store in our string. 
The ASC(X) takes the ATASCII code number and 
reidentifies it as a numeric quantity. We don't care 
one whit what those characters are as long as we can 
use them to store our numeric data. We could print 
out our string if we wish to see the characters but it 
would just be gibberish. But then, my wife says that's 
representative of many of my programs anyway. 
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The more difficult problem is in treating the string 
as an array or matrix. Again, we'll take the simplest 
problem first. The structure of an array is essentially 
the same as a string. If we want the Xth element in 
array FUDGE, then we simply call FUDGE(X). For 
a string we must cite both the first and last string 
elements we want. Since we're only interested in one 
element at a time, we get the Xth element of the string 
FUDGES by caHing FUDGE$(X,X). Easy enough, 
right? This is the procedure for both reading and 
writing into the string representing an array. 

Enough of the simple stuff. Now let's look at 
matrices. The memory in your ATARI is actually a 
linear address space, just like your string is linear. 
When you create a matrix the BASIC interpreter just 
sets up a series of routines that will identify the 
address of the desired element when you cite the ele- 
ment's matrix coordinates. In other words, the inter- 
preter simply converts your table of data into a list. 
All we have to do is figure out how to do the same 
thing! 

Our matrix FUDGE has coordinates X and Y. X 
will be the row number in the matrix and Y will be 
the column number. Let's say our matrix has a total 
of R rows and C columns. In our string, we'll list all 
the elements in the first row, then all of those in the 
second row, and so on. So, if we want the element 
that's in the 4th row, 3rd column, that is FUDGE 
(4,3) (see Figure), and our matrix is 6 by 5, then we 
have to go down our string past the data for the first 3 
rows to get to the row we're interested in. In this case 
we have 5 elements in each row so we pass over the 
first 15 elements in our string. This puts us into the 
data for the 4th row. Now we go down our string 3 
elements farther. This puts us at the element that is in 
the 4th row, 3rd column of our table but it's the 18th 
element in our string. 

In general, we convert our matrix location, 
FUDGE(X,Y), to a string position FUDGE$(Z,Z), 
bu passing over (X-1) rows. Since there are a known 
number of columns, say 5, then we pass over (X-1 )*5 
elements of our string. We then pass down our row 
to the Yth column to reach the string element corre- 
sponds to the matrix element at position X,Y. This 
means that our string position is the element at 
position (X-l)*5+Y. To be even more general, if we 
dimension our matrix as (R,C) then our string 
position of the X,Y element is (X-1)*C+Y. Did you 
follow all that? 

I can hear all of you hot shots in the background 
yelling, "What about the zero elements of the ma- 
trix?" All right, I admit that the scheme I've shown 
ignores the zero elements of the matrix. In fact, I'm 
really treating the matrix as a table with no zero 
coordinates. If you're the conscientious type that 
uses tVve lero elements in a matrix, then make the 
appropriate changes to your string dimensions and 
the position formula (it comes out (X*C)+Y+1). 



This is really only necessary though if you're con- 
verting an existing program. If you're using this 
string method when you start writing a program, the 
original formula works fine. And if you're convert- 
ing an existing matrix that doesn't use the zero ele- 
ments, the original formula not only works fine but 
also gives additional memory savings by not wasting 
those bytes assigned to the unused zero elements. 

So, if we want to read or write to the X,Y element 
of matrix FUDGE, we just go to the string element 
FUDGE$((X-l)*C+Y,(X-l)*C+Y).NotethatIhad 
to use the position formula twice to get only the one 
element I wanted in the string. 

O.K. We've taken something relatively simple and 
turned it into a bit of a mess. What did we gain? Since 
each matrix and array element uses 6 bytes of mem- 
ory while a string element uses only one, we've saved 
5 bytes of memory for every element that we con- 
verted into our string. In our 40 X 40 dynamic 
battlefield matrix that amounts to a savings of 8K 
bytes! Not bad, huh? Now maybe we can get the game 
into our I6K machine. 

To briefly recap what we've done, if we want to 
store the number 12 at the X,Y position of our table 
whose dimensions are R,C, then we use ■. 
FUI)GE$i(tX-lJ«C + V, (X-13»C+Y) = CHRSC12J 
When we want to get the number hack out, we use 
FUDGE = fl5C (FUDGES ( CH-11»C+V^ CX-13*C+Y)) 
You can see that this isn't the kind of thing you want 
strewn all through your program or even want to 
poke in more than once. Put these statements into 
subroutines and just call them each time you need to 
read or write to the string. 

Gluttony 

Whew! Well, I hope you're still with me. I pro- 
mised earlier to provide help for those gluttons 
whose data exceed the range 0-255, so here goes. If 
we take two string elements together and use them to 
represent a single number, we can still save 4 bytes 
per element. We define the first string element to be 
our low order element and then we constrain that 
element to the range 0-99. We let the second, high 
order element run its full range of 0-255. Then to 
reconstruct our number we pull out the high order 
element, multiply it by 100 and add it to the low 
order element. Presto, our range now goes 0-25599 
and we still save 4 bytes per element. 

Keeping track of where we are in our string now 
that we need to take two elements at a time is not too 
tricky, but it does introduce another complication 
on all that we've already done. A simpler method is 
to use two strings, one for the low order elements 
and one for the high order. We do eat up a bit more 
memory due to the initialization and naming of the 
second string, but that cost is minimal (9 bytes plus 
the name length plus the DIM statement) and the 
ease of conversion of our data is justification enough 
to make this trade off. 
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Here's the method we use to store and retrieve our 

number using two strings, HIFUDGE$ and 

LOFUDGE$. To store the number X in our strings 

we use •. 

HIFUDGESCZ.ZJ - CHR$ (IMT f K/180) > 
L0FUDGEStZ,Z5 = CHRS tH-IMT CH/ieOJ J 

To retrieve X is just as easy, Uke this •. 
H = ftSCCHIFUDGE5CZ,Z))«100 + ASCCLOFUD 
GESCZ^Z)) 

Want to extend that range a little further? Remem- 
ber that we constrained the low order element be- 
tween and 99? If we let the low order element range 
between 0-199 then we can let the value of our 
number be negative when the low order element is 
greater than 99 and positive when it is less than 99 
(or vice versa). Now our data can range from -25599 
to +25599. And we still save 4 bytes per element. 

One method we can use to store our numbers is: 
HIFUDGESCZ.Z) = CHRS (IHT (ftBS fX/ieOJ > J 
IF 5GHtX3=-l THEM LOFUDGES CZ^ Z3 = CHRS 
CABS(X) - INTtAB5CX/lQe)) + 108]:RETUR 
N 

LOFllDGEStZ,ZJ - CHRStX - INT CX/lSO) ) : R 
ETliRN 

We can use the following statements to retrieve our 

number . 
IF LOFUDGESfZ,Z) > 99 THEN X=-l*tA5CCH 
IFUDGE$tZ,Z)J»108 + A5CCL0FUDGE$CZ^Z]) 

~ XOO): RETURN 
X = ft5CfHIFUDGEStZjZJJ«ieO + ASCtLOFUD 
GE5<Z,Z>3 „ , , , 

Pack It In 

If you're like me, you've just flopped back in your 
chair and are ready to pack it in, right? But wait! You 
say your data has a very limited range but there's 
gobs of it and you want to handle it all in even less 
space then I've shown you? Bloody ingrate, if you ask 
me! But we'll try. Since we're using string values 
limited to 255 max, we don't have much leeway on 
the methods we can use to pack data. However, if 
your data can be kept in the range 0-9, then there 
may be hope. 

The trick to this packed data method, if you 
haven't already guessed, is to use the least significant 
digit to hold one number, and use the second digit to 
hold the second number. The most significant digit 
only has a range of 0-2 so it isn't of much value. We 
can use the most significant digit along with the 
middle digit to get a range of 0-24 for one number 
and 0-9 on the second number, but such an unbal- 
anced data scheme probably has very limited 
applicability. We won't address this option further, 
but it is available. 

As far as packing the numbers themselves, it's just 
a case of multiplying the second number by 10 and 
adding it to the first number. Unpacking is almost as 
easy. We get the second number by dividing the 
element by 10 and taking the INT function to strip 
off the fraction. These are all positive numbers so we 
don't have any problems with this. We get the first 
number by multiplying the second number by 10 
and subtracting it from the string element value. To 
put it more clearly, we build the string value like this \ 



FUDGES CZ^Z) = CHR$(X1+X2«ie) 

where XI and X2 are our two numbers. We unpack 
the data like this : 

X2 = INTtASC(FUDGES<Z,Z)J/10> 

Kl = a5CCFUDGES(Z,ZJ3-K2»18 

That's it. We can now store two numbers (0-9) 
that previously would have taken 12 bytes into a 
single string that uses only one. A phenomenal 
saving of 11 bytes for every two numbers. In our 
chess game this means that where our original three 
8X8 matrices took 1152 bytes, we can now store the 
data in a piddling 96 bytes! Not too shabby, is it? 

Flotsam and Jetsam 

There you have it. Lesson 2 in Dr. Mike's Memory 
Improvement Course. If those won't help you, I'm 
afraid you'll just have to spring for more memory or 
learn Assembly language. These techniques really do 
work and they result in significant improvements in 
terms of efficient memory usage. But, like everything 
else, this improvement has its price. The price for 
converting arrays and matrices into strings is an in- 
crease in program complexity and the additional 
processing time required to make conversions. 
Whether these tradeoffs are acceptable is solely up 
to you and your application. One thing is certain, 
though. You may have the best program on the block 
but if it won't fit in memory, who cares? D 



String 
FUDGE$(Z) 



X,Y 


Z 


1,1 


1 


1,2 


2 


1,3 


3 


1.4 


4 


1,5 


5 


2,1 


6 


2,2 


7 


2,3 


8 


2,4 


9 


• 


• 


• 


• 


• 


• 


3,6 


15 


4,1 


16 


4,2 


17 


4,3 


|18| 


4,4 


19 


• 


• 


• 


• 


• 


• 



Matrix FUDGE(X,Y) 
Y 

12 3 4 5 



X 



1 
2 
3 
4 
5 
6 



X X X x x 



X X 



[3 



X X X X 



XXX 
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A SUPER ASSEMBLY 

LANGUAGE GAME! 

DON'T MISS IT! 



e Officio 




FROGGSR runs on ony 48K nPPL€ II ujith 
:, . DOS 3.3 or flTflRI 400/800 uuith 32K 
ark) o Disl<drlve,i6H and cassette, 
frogger is ovoiloble for $34.95 ot your 
. . IocqI computer store or order 

■hi.-;.' directly from .. , ,. . 



N'UMM'y'*' 



■rt' 



5 Mudgi^fttmcti Rd., Coarsegold, Cfll 93614 



®ond TM designates a trademark of 
Sega enterprises, Inc. , . J 

':■. ; ■.;® 1.982 ,Sega €ntai? " 




RACE IN SPACE 

THE BEST-SELLING GAME FROM 

A.N.A.L.O.G. SOFTWARE 

16K cassette or disk $24.95 



SEND CHECK OR MONEY ORDER TO' 

A.N.A.L.O.G. Software 

P.O. Box 23 Worcester, MA 01603 

MasterCard and VISA accepted (617) 892-3488 




( 



V 




\' 



ft#«rv> 



SUNDAY DRIVER gives you four scenarios to 
choose from. You must beat the clock as you 
drive along while avoiding pedestrians, other 
cars, and obstacles. In other versions it's winter 
and you're on ice-slicked roads. In game three 
it's nighttime (don't hit the ghosts). If this 
sounds too easy try the 007 option — it's you 
against them on twisty roads. 



SUNDAY DRIVER — the ultimate driving game. 
SEND CHECK OR MONEY ORDER TO; 

A.N.A.L.O.G. Software 

P.O. Box 23 Worcester, MA 01603 

MasterCard and VISA accepted (617)892-3488 
16K cassette or disk $29.95. 



AUSTIN FRANKLIN ASSOCIATES ANNOUNCES 



32K - ATARI® 400/800 ■ 48K 

$0495 2-YEAR FULL WARRANTY $ 'I O/l 95 

^^ HIGHEST QUALITY AND RELIABILITY POSSIBLE 1^^ 



HIGHEST QUALITY AND RELIABILITY POSSIBLE 

(WITH 16K IN TRADE) 



BOTH 32K AND 48K WORK IN THE 400 AND 800 - FULLY ILLUSTRATED INSTRUCTIONS 
32K- FITS IN ANY CONFIGURATION ANY OTHER BOARD WILL 
REQUIRES NO MODIRCATIONS TO THE 400 

48K - AUTOMATIC MEMORY DE-SELECTION WHEN CARTRIDGE USED 
4-WIRE INSTALLATION TO 400 - NONE TO 800 
% THE POWER CONSUMPTION OF OTHER BOARDS 



WE GUARANTEE THESE TO BE THE FINEST 32K AND 48K BOARDS AVAILABLE 

AT ANY PRICE - AND HERE'S WHY: 



D GOLD EDGE CONNECTOR - BEST CONNECTION TO BACK PU<\NE 

TAKES FULL ADVANTAGE OF ATARI'S BUSS STRUCTURE - INSURES TOTAL COMPATABILIW 
D COMPUTER GENERATED PC BOARDS - MOST ACCURATE 

n 100 HOUR MEMORY TEST BURN-IN - GUARANTEES PERFECTLY OPERATING BOARDS 
° NO fcL'EN'lNraTNCT^'''''''' CAPACITORS) - INSURES GLITCH-FREE OPERATIONS AND 
n NOT SOCKETED - SOCKETS ARE UNRELIABLE AND COST MORE 
D PARTS PURCHASED IN MASS QUANTIW - SAVINGS REFLECTED IN PRICE 



WARRANTY: 2-YEAR FULL REPLACEMENT - JUST RETURN YOUR BOARD AND WE 

WILL SEND YOU A NEW ONE WITHIN 10 DAYS, 
10-DAY FULL REFUND FROM DATE OF PURCHASE 



THESE BOARDS DO EVERYTHING THE COMPETITORS WILL DO - 
BUT COST YOU MUCH LESS. 



48K (WITHOUT 16K TRADE) $149.95 

32K LOOPBACK - ALLOWS 32K TO BE USED ALONE IN THE 800 . . $5.00 
48K LOOPBACK - ALLOWS 48K TO BE USED ALONE IN THE 800 . . $5.00 

SEND CHECK OR MONEY ORDER TO: 

AUSTIN FRANKLIN ASSOCIATES 

43 GROVE STREET, AYER, MA 01432 
FOR CO.D., MASTERCARD OR VISA, CALL 

(617) 772-0352 

DEALER INQU/RIES AVAILABLE 

STATIC DAMAGE IS NOT COVERED BY WARRANTY. 
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BUDGET WORKSHEET 1 1 



16K DISK 



by Aly Kahn 



Sooner or later, most home computer users come 
to the startling realization that the cassette tape is 
much too slow to allow for the efficient usage of time 
spent with their computer. 

When I wrote the article BUDGET WORK- 
SHEET (A.N.A.L.O.G. #7), I envisioned that I 
would continue to be ecstatic about the cassette 
world. Well, horror of horrors, the WORKSHEET 
worked so well that I soon had enough money for 
one ATARI 810 disk drive. My wife, as a peace 
offering to the computer room, even made a cover 
for the orphan cassette player! 

After setting up the disk drive, I had a horrible 
thought — BUDGET WORKSHEET was written 
for tape users. After 50 quick disk accesses one is no 
longer a tape user. 

Thankfully, the original program needed a mini- 
mal amount of restructuring to work on a disk 
system. Two new features were added to the original 
program to enhance its use. 

The first enhancement was the inclusion of per- 
centages of the amounts budgeted compared to the 
total amount. The percentage is saved in the same 
fashion as the screen. 

The second, far more important enhancement was 
the ability to randomly access up to 999 individual 
budget screens from the program. 

The random access routine uses a simple pro- 
cedure to its best advantage. The standard filename 
has the form: D:XXXXXXXX.YYY. In this form the 
D: must always be present to specify the device to be 
opened; the x's represent the filename, and the y's 
represent the optional extender. By making the file- 
name a fixed entity (D:BUDGET.), I was able to 
dimension a numeric array to change the extender 
based upon user input. Since D:BUDGET. occupies 
9 spaces (including the period) and the extender 
occupies 3, I dimensioned the array FR$(12). The 
extender would therefore occupy FR$( 10,12). If we 
then let the extender equal N$ , the user can input the 
extender as a three-digit filename from 000 to 999 
inclusive. On writing or reading of the budget file 
this is the user-accessible part. 

The program is fairly straight-forward. The title 
page is displayed, followed by a prompt with two 
choices. If the user wishes to create a budget he types 
save and hits the return key . He will then be asked to 
input the month (alphabetically), day, and year. The 
screen then clears and asks the user to enter eight (or 
less) budget categories. Upon completion of each 



category the user must hit the return key for the next 
prompt. After the eighth category is entered and the 
return key depressed, the screen again clears and the 
user inputs the dollar and cents amounts of each 
category. At the final input he hits return and the 
complete budget is displayed in columnar structure 
with a date on the bottom and the total of the budget. 

The whole program has been error-trapped to 
make it "semi-user-friendly." (It barks once in a 
while!) As usual I want to thank John and Anne 
Smith of the Computer Shoppe, Patchogue, New 
York. Their patience during the search for a working 
32K board and my transition to a disk system was 
really appreciated. 

Happy hacking! . . .D 

(Editor's note: Since some readers may not have a copy 
of A.N.A.L.O.G. Computing #7 in which we printed 
the cassette version of BUDGET WORKSHEET, we 
elected to reprint the entire program for disk users, notjvst 
the cassette version modifications. Program lines changed 
from the cassette version are preceded by an asterisk. Line 
200 of the cassette version has been deleted. Line 1002 has 
been added to the disk version.) 



GRAPHICS 2+16:SETCOL0R 2,4,4:CLR 

1 POKE 764, 255: REM BUDGET WORKSHEET 



REW,3.I> 6/30/82 

2 POSITION 5,1:? tt6; " BUDGET" 

3 POSITION 5,3:? tt6;"[ia: 

4 POSITION 5,6:? tt6;"BY 

5 POSITION 5,8:? tt6;" 1982 " 

6 FOR K=:l TO 280 STEP 0.1:NEKT 
»7 DIM MEWUSC4) .FR$(121 ,MSC5 J 



TO LOAD DATA TYPE LOAD 



'iESEM 

'9^t"rAp"8Ti"nPUT MENUS: if MENUS="L0AD" T 

HEN 1800: IF MENUS="SAVE" THEN 18 

18 DIM flS(lB3,AC6J .BSCie3,BC6J,CSClBJ, 

CC6),DSC10J,DC6J,ESC18J,EC63 ,FS(18},FC 

6] 

11 DIM MONTHS C^J, DATE C2>, YEAR C43 

12 DIM GSCie3, Gt6?,HSCia3 ,HC6) 

13 TR AP 13:? "MMJItfa:[ii;iT71 ":INPUT MONTH 
S:? "i <:>Jlfca>WJ "; INPUT DATE : ? "HaaEDKIi 

H0": INPUT YEAR: TRAP 40888 

14 ? C HRSC125i 

15 ? . 

CEEBB" 

16 ? 

17 POKE 752,1 

18 FOR L=l TO 18: SOUND 2 , INT CRND tlJ«25 
53+l,lB,18:NEKT L : SOUND 2,8,8,8 

28 TRAP 28: INPUT AS: TRAP 48888 

38 TRAP 38: INPUT BS : TRAP 48888 

48 TRAP 48: INPUT CSrTRAP 48088 

58 TRAP 58: INPUT DS : Tff AP 40000 

68 TRAP 68: INPUT ES : TRAP 46888 

78 TRAP 78:INPUT FS:TRAP 48888 

72 TRAP 72: INPUT GS:TRAP 48888 

74 TRAP 74:INPUT HS:TRAP 48888 

75 ? CHRSC125> 



e budget categon 



CUP TO 8 CATEGORIES, PLEA5EJ 
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80 TRrtP 80:? flS;"=' 

e 

90 TRAP 30:? BS:"3' 

8 

100 TRAP 100:'> CS:" 

890 

110 TRAP 110:^ DS;' 

080 

120 TRAP 120:? ES;" 

BOB 

130 TRAP 130:? FS;' 

080 

132 TRAP 132:? GS," 

080 

134 TRAP 134:? HS;' 



:INPUT A:TRAP 4000 
: INPUT B:TRAP 4000 
"; :IMPIIT C:TRAP 40 
"; : INPUT DrTRAP 40 



: INPUT 
: INPUT 



TRAP 40 
TRAP 40 



000 
140 
141 

»142 

*■■ 

»143 
«145 
»15e 
*160 
*170 
«189 
»190 
«132 
«154 



: INPUT G:TRAP 40 
: INPUT H:TRAP 40 



CHRStl25J 




TOTALS CA+B + C + D+E + F + G + H) 



■ fly 11 

I Ifyit 

r '• 

;••■/.'• 
■,"7." 



A|,A,INTCA/TOTAL«10O) 

BS , B , INT CB/TOTALWIOO) 

Cf , C , IMT £C/TOTAL*180 J 

»|, D, INT tD/TOTALMlOO) 

ES,E,INTCE/TOTAL*1O0) 

Ff,F,INT(F/T0TAL»100J; ,. 

G$,G,INT(G/TOTAL»100) :"X" 

HS,H,INT<H/T0TAL*100) ;"Z" 

201 FOR Z=l TO 10:5OUHD 0, TOTAL , 18 , 18 : 

NEXT Z:50UHI> 8,0,0,0 ' »i- , x» , l» . 

288 ? :' 

210 ? "OaaBD", TOTAL 

213 ? :? MONTHS;" "; DATE ; ",■';■■ -SYEAR 

217 OPEN »3,4,0,"K:" - tlhh 

218 GET tt3,A:IF A=155 THEN 226 

ifo Voy'^EsiaH^'^ "' = '"'" '" 

* li^MD'.'.^PJ'Jl'i^''^^"**^*^"^^^" = TRAP 2 
26 : INPUT N$ : FRS~''D: BUDGE r. " : FR$ fie, 12 J 
^H5:0PEN tt4,8,e,FRS:TRAP 48800 '^'''^''' 
228 FOR Y=8 TO 23 
236 FOR X=:8 TO 39 
232 LOCATE K,Y,Z 



NOREM 



233 PUT tt4,Z 

234 NrfHT K 
236 NEKT V 

240 CLOSE it4:CL05E «5: CLOSE «3 

255 POKE 764, 255: GRAPHICS 0:5ETC0L0R 2 

J 4,4 

260 ? 

mm" 

263 ? 

264 -> 

265 

270 

296 

FOR 



'UJ«UMgJilJaj[L.Jjj ai ljaf « i^ 



IPTION 
LPUSH, SEf-- 



IF PEEKC53279J=6 tlT E H" 

IF PEEK{53279J=3 THEN ? CHRS (125J : 

1 lo'^Ti I2„i*' = ^*'"'"> l.IHTCRNDtl3»255) + 
1,10,10:HEKT RiSOUHD 1,O,0,8:END 

Hi GSlS^i^e^""'''^ ^"^"^ ^OSUS 1800 
*r™SS»rV''"'"-<^LR :DIM FRS{12J,NS(3J:^ ■• 

aaBRH": INPUT H$:FRS="D: BUDGET. ":FB$C 
^10'12)=H5:TRAP 1001:0PEN tt4,4,0,FR5 
^Agai JF PEEKC195J=178 THEN CLOSF tt4:TR 

AP 480eO:POKE 195,0:G0T0 
«1802 POKE 82,8 

1005 OPEN 05, 12,0, '•£:'■ 

1818 OPEN lt2,8,0,"5:" 

1020 FOR Izl TO 960 

1830 GET tt4,A:PUT »2,fl 

1040 NEKT I 

1050 CLOSE tt4 ; CLOSE tt 5; CLOSE a;2 

i8i4^|F""^?^'^F^^P0KE 764,2 
1055 GOTO 1054 



D: CHECK DATA 



DATA 438,952,6 
371,139,858,38,3 
15 DATA 339,249, 
1,174,812,880,20 
79 DATA 822,898, 
,185,705,969,770 
160 DATA 898,582 
,298,263,357,719 
228 DATA 293,285 
42,310,908,998,6 
295 DATA 799,281 
24,488,34,26,359 



",586,25,778,395,251, 

62,443,767,6968 

fl^'2e3 849,153,791,86 

1,817,772,816,8836 

57,129,137,145,153,169 

,452,582,675,6848 

'T?^H5'60i'741,592,3 

,334,792,973,8793 

,214,628,448,777,817,4 

40 452,711,536,8459 

,937,978,610,695,401,6 
,14,6246 



By Jerry White 



NOREM reads a BASIC program in list format, de- 
letes all REM statements, and writes the remless 
program to disk in list format. I'm sure many will 
find this to be a useful programmers tool. D 



10 REM NOREM BY JERRY HHITE 

20 t' RflPHlC S 0;S ETCQLQR 2,0 ,0:? :? " 

30 DIM LISC200J,LOSC2OO) ,FISC15J,f6SC1 

53, US (123 

40 ? :? "INPUT FILE MUST BE IN LIST FO 

RMAT.":? :? "OUTPUT FILE WILL BE LI5TE 

D TO DISK." 

50 o .0 "TYPE INPUT FILE NAME"; : INPUT 

60 FlS="D:":FlStLEHCFlS3+13rUS 

70 ? :? "TYPE OUTPUT FILE NAME"j:INPUT 

80 F05z"D : " : r 0$ CLEN {F0S3 +13 =US 

90 ? "H":? :? F0$f3,LEHCF0S)3;" LI5TIN 



100 OPEN «1,4,0,FIS:0PEN tt2, 8, 0, FOS : TR 

AP 240 

110 INPUT «l,LlS:LI=LENfLlS3 

120 IF H>4 THEN 140 

130 GOTO 160 

140 FOR ME=1 TO LI-2:IF LIS (ME, ME+3J =" 

REM " THEN L0S=LIS (1, ME-2) : POP : GOTO 1 

80 

150 NEKT ME 

160 L0S=LIS 

170 ? L0S:PRINT tt2;L05:G0T0 110 

180 IF UAL(LIS3<10 AND LIS (3, 53 -"REM" 

190 IF yAL(LlS3<100 AND LIS (4, 63 ="REM" 

THEN 110 

200 IF UALCLIS3<1000 AND LIS (5, 73="REM 

m"®t5Eu"?1^'-^^''^^^®''® **•"> LlS(6,83r"RE 

220 IF LIS(6,83="REM" /HEN 110 

230 GOTO 170 

240 CLOSE ttl:CLOSE tt2 : ? CHRSC2533:? "R 

EM STATEMENTS HAUE BEEN DELETED .": END 
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MICROSOFT»MICROPRO«LIGHTNING SOFTWARE«SIRIUS»LOGICAL SYSTEMS'SUPERSOFT 

EVERY NINE MINUTES 

SOMEONE JOINS 

AMERICAN SOFTWARE CLUB 

HERE ARE 10 REASONS WHY: 



1. PRICE: ASC promises that members 
prices are the lowest available. If, within 30 
days of your purchase you find a lower, nation- 
ally advertised price, we will gladly credit your 
account with the difference, 

2. NO MINIMUM: As a Club member you are 
never obligated to buy anything you don't 
want, unlike other software clubs which some- 
times require as many as three purchases 
every six months, 

3. FAST SHIPMENT: The products we offer 
in our catalog are kept in stock, so orders are 
usually shipped within 24 hours. We also offer 
air shipment for those members who want it. 

4. PRODUCT DESCRIPTIONS: ASC s bi 

monthly Compendium contains extensive pro- 
duct descriptions on every offering so that 
both novice and expert alike know what they 
are buying and can be sure that it's right for 
them and their computers, 

5. WIDE SELECTION: ASC carries hundreds 
of programs as well as hardware and supplies 
for APPLE, ATARI, CP/M, IBM PC, and TRS-80 
computers. Program categories include Busi- 
ness, Education. Entertainment and Langu- 
ages/Utilities, 



6. PRODUCT EVALUATION: Each product 
sold by ASC must first pass rigorous evalua- 
tion before it is included among the Club's of- 
ferings. Products must demonstrate both their 
claimed capabilities and represent sound pur- 
chases prior to their inclusion, 

7. PRODUCT SUPPORT: We believe it is as 
important to support products as it is to sell 
them, so we stand behind every product we 
sell, and only offer merchandise from manu- 
facturers who are committed to living up to 
their warranties, 

8. EASE OF ORDERING: An order form and 
envelope is provided with every catalog, and 
to make ordering even more convenient, the 
Club also provides a toll free number for 24 
hour, 7-days-a-week service, 

9. CONSUMER SERVICES: The Club pro^ 
vides at member request, information and sug- 
gestions as to product suitability and compati- 
bility, and when necessary can call on the 
assistance of additional outside sources, 

10. SPECIAL OFFERS: Club members will 
from time to time receive special exclusive 
offerings that greatly enhance the value of 
membership. 
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ASC is America's oldest and 
largest commercial software club. 
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AMERICAN SOFTWARE CLUB, INC. 

Millwood, New York 10546 

Please begin my free six-month trial membership as outlined in this ad. 



FOR A SIX-MONTH TRIAL 
MEMBERSHIP WITH NO FEE OR 
OBLIGATION, FILL OUT THE 
COUPON OR CALL OUR TOLL 
FREE NUWBER-. A-800-431-2061 
(N.Y. Residents call 914-762-5644) 



Name 



Address 



City/State/Zip 



My computer is: 
circle 



1.. 



APPLE 

TRS-80 
(Mods, 1, 2, 



3) 



ATARI 



IBM PC 



CP/M 
(8" or 5 "4' 
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BEGINNER'S BASIC 



by Thomas M. Krischan 



A few days ago my neighbor Kevin finally broke 
down and decided to buy an ATARI 800. After 
opening up the box Kevin confessed to me, "Well, 
I'm counting on you to help me through program- 
ming. I guess you've adopted a son!" I've also 
adopted a great opportunity to share with the readers 
the trials and tribulations of the beginning pro- 
grammer. After the initial ooh's and aah's of playing 
with his ATARI, Kevin started on a serious project, 
his first program. The next day or so, I stopped over 
to see how Kevin was progressing. He met me at the 
door with a smile. "Have I got something to show 
you!" We went upstairs to the spare bedroom, 
which had now become the computer room, and I sat 
in front of the TV. Kevin typed in RUN, a line was 
drawn from the top center of the screen to a random 
point along the base, a whisde sounded and the 
program repeated this sequence 24 times. Kevin then 
listed the program on the screen. It was 15 lines long 
and worked just fine. But, it was somewhat 
awkwardly written. 

Let's spend some time looking over Kevin's 
original program and see if we can't remove some of 
this "awkwardness." 

FIGURE 1. ORIGINAL PROGRAM 

5 X=l 

le GRAPHICS 3 

12 X=X*1 

15 B=RNDCe]W39 

28 FOR M=0 TO 3 

21 FOR H=l TO 100 STEP 4 

22 SOUND e,R,10,8 
25 COLOR N 

30 PLOT 18,0 

35 DRAHTO B,19 

36 NEXT R 
40 NEXT N 

90 IF X=25 THEN 200 
95 GOTO 12 
200 END 

There are several improvements which can be 
made. The FOR. . .NEXT loop in line 21 executes 
25 times. R becomes 1,5,9,. . .,93, 97 but it never 
becomes 100, and 100 is the upper limit of the loop. 
This may seem nit picky, but that's what good pro- 
gramming is all about. We must either make the 
upper hmit 97 or make the starting value 4. There are 
exceptions to this rule, however this program does 
not demonstrate any of them. The loop executes 
four statements; SOUND, COLOR, PLOT, and 
DRAWTO. After executing the loop all 25 times, M 
is still M, and B is still B. That is, the variables of the 
COLOR and DRAWTO statements remain 



unchanged. PLOT contains no variables and like- 
wise remains unchanged. Therefore, these 
statements do not require this multiple execution, 
once is enough. More than once wastes time. Let's 
move the COLOR, PLOT, and DRAWTO state- 
ment in front of the loop. Also let's use a colon and 
put multiple statements on the same line. Here's 
what the first revision looks like. 

FIGURE 2. FIRST REVISION 

5 H-1 

10 GRAPHICS 3 

12 X=X+1 

15 6=RND(0)«39 

TO Kg""** ^° 3: PLOT 18, 8: COLOR N:DRAM 

aJNEXT r"" ^° ^^^ ^^^^ 4:50UND 0,R,18, 

40 NEXT M 

90 IF X=25 THEN 280 

95 GOTO 12 

200 END 

The FOR... NEXT loop in line 20 executes 4 
times. M becomes 0,1,2, and 3. M also designates the 
COLOR variable used by the PLOT and 
DRAWTO. But, COLOR is the same color as the 
background and consequendy can't be seen. So, 
simply eliminate zero from the loop. We can incor- 
porate lines 5,12,90 and 95 into a simple FOR. 
NEXT loop, where the starting value is 2 and the 
upper limit is 25. 

We can again use colons for multiple statements 
and also renumber each line into increments often. 
This is easier on the eye and allows more space for 
future updates. Lasdy, we will reverse the order of 
the multiplicands for determining B in line 15. While 
the product is identical under either form, the latter 
is quicker. 

FIGURE 3. FINAL REVISION 

10 GRAPHICS 3: FOR X=2 TO 25 :Bz39»RND CO 

TO B?19"~'' " 3:PL0T 18.8:C0L0R N.'DRAU 

i?NEXT r" ^° ^^^ ^^^^ 4:S0UND 0,R,18, 
40 NEXT M:NEXT X:END 

What have we really accomplished? A lot! First, 
we've reduced Kevin's 15 line program into a 4 liner,' 
which is much more readable. Second, we've 
reduced the amount of required memory by 29%. 
And last, we've increased the speed of the program 
by over 350%! n 
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Med Systems is proud to announce the Jyym Pear- 
son Adventure Series for the Atari computer. 
These adventures feature multi-word input, 
graphic and sound enhancements, complex story 
lines, and scenarios up to 30% larger than the cur- 
rent popular 24K series. And ours fit in 16K! 

Cassettes load in 5 minutes, not 20 minutes as with 
our competitors. Our duplication produces reliable 
tapes. Diskettes boot in under 20 seconds, and 
save games in less than 5 seconds. 

The Institute: Not just one adventure, but five! 
You must negotiate not only the institution, but 
four other scenarios in your dreams. A huge 
statue, a prehistoric forest, an ancient temple, and 
the Titanic ocean liner all conceal objects and clues 
to help you escape the nightmare of the Institute. 
The Institute 16K cassette or diskette . . . . $19.95 



Lucifer's Realm: Entering the kingdom of Satan, 
you discover a revolution in the making, headed 
by Adolf Hitler. Travel through the bowels of 
Hades, dealing with the most evil mortals of all 
time. By cunning and strategy, you can bring 
Hitler to his final doom and gain your escape from 
the fiery Pit. 
Lucifer's Realm 16K cassette or diskette . $19.95 

The Paradise Threat: Successfully emerging from 
Lucifer's Realm, you find that even heaven is not 
immune from harm. Your own previous actions in 
Hell have lead to a threat within Heaven itself. 
Winston Churchill, Abe Lincoln, and Groucho 
Marx guide you to ways to remedy your mistakes 
and save Paradise. 
Paradise nreat I6K cassette or diskette . $19.95 

Special Game Disk 

(all three Pearson Adventures) $49.95 



Med Systems Software • P.O. Box 3558 • Chapel Hill, NC 27514 
To order, call 1-800-334-5470, or see your dealer 
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GRAPHIC VIOLENCE I 



16K CASSETTE OR DISK 



by Tom Hudson 



When writing game programs, many 
programmers automatically choose assembly 
language over BASIC because of the obvious speed 
advantage. This can sometimes be a mistake, since 
BASIC offers some functions (such as sine, square 
root, etc.) not easily written in assembler. One way 
to take advantage of the convenience of BASIC and 
the speed of assembler is to combine the two 
languages. ATARI BASIC allows the user to "call" 
machine-language subroutines, which can be many 
times faster than the same routine in BASIC. 
A.N.A.L.O.G. Software's shooting gallery game 
"Carnival" uses this technique. Fine screen 
scrolling, music generation and other functions 
which must be performed quickly are done in 
assembler, while simpler operations are handled by 
BASIC. 

In order to assist those game programmers who 
would like to have dramatic explosion effects in their 
BASIC programs, I have developed Graphic 
Violence, a group of assembly-language subroutines. 
These routines allow BASIC to generate up to 20 
simultaneous explosions in GRAPHICS 7. They can 
optionally generate sound effects as well as "cycle" 
the colors of the explosions for an interesting 
"radioactive glow" effect. 

The first half of this article is a non-technical 
explanation of how to use Graphic Violence. The 
second half is an in-depth discussion of the actual 
assembly language code for those interested in the 
inner workings of the subroutines. 

USING GRAPHIC VIOLENCE 

Listing 1 is the BASIC language code necessary to 
set up the Graphic Violence subroutine. This code 
should be placed in any program that is to use the 
explosion generator. After typing this program in, 
SAVE it immediately, BEFORE RUNNING IT! The 
routine has some safeguards against typing errors in 
the DATA statements, but if it is executed with bad 
DATA, the system may crash and it will be necessary 
to re-type the program. 

After the program is typed and SAVEd, RUN it. If 
it is typed correctly, the program will run for several 
seconds before anything happens. The screen colors 
will begin cycling quickly. If not, an error was made 
somewhere, and you should re-boot your system, 
load the SAVEd program, find the mistake, SAVE it 
and try again. 

If a message such as " COORD 1 ERR" occurs, 



you have made a mistake typing in the DATA 
statements. "COORDl ERR" indicates that an 
error was made in the COORDl DATA, "INIT 
ERR" is an error in the INITIALIZATION CODE, 
etc. Find the error, fix it and re-RUN the program. 

Once the computer starts cycling colors, press 
SYSTEM RESET before doing anything else. 
Whenever operating any program using the Graphic 
Violence subroutine, you MUST use the SYSTEM 
RESET key to terminate the program. The 
subroutine automatically disables the BREAK key 
since typing commands in immediate mode while the 
subroutine is in operation will usually cause a system 
crash. Pressing SYSTEM RESET will correctly 
terminate the subroutine and avoid any problems. 

At this point, you should have a correctly 
operating Graphic Violence initialization subroutine 
SAVEd on tape or disk. 

PROGRAM 1 FLOW 

Line 80 - GOSUBs to line 10000 to initialize the 
subroutine. 

Line 10010 -Dimensions the strings needed by 
Graphic Violence and RESTOREs the 
DATA pointer. 

Line 10020-10060 -READs DATA statements into 
the strings used by the routine. 

Line 10080 -POKEs graphics PLOT values into 
Graphic Violence. 

Line 10100 -Calls the machine -language initializa- 
tion routine. It is of the form: 

ArUSR f ADR CINIT$) .ADR CHAIN$) , ADR (COORDl 
S) ^ ADR CC00RD2$] , COLOR j SOUND) 

The COLOR value tells whether or not you want 
the color of the explosions to cycle. In the program 
listing, this value is set to 1, indicating that cycling is 
desired. If you do not want cycling, place a here. 

The SOUND value tells whether or not you want 
the routine to generate sounds with the explosions. 
In the listing it is a 1, indicating that we want sound. 
If sound is not desired, place a here. 
Line 10110 -This line simply returns from the 
subroutine to the main program. 

A SHORT DEMONSTRATION OF 
GRAPHIC VIOLENCE 

With listing #1 in your computer, add listing^! to 
the original program and RUN it. This is a short 
demonstration routine which simply places an 
explosion at the center of the screen, then repeats. 
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By looking at this short routiae, you will n^^ice 
the USR call in line 220. This is the command which 
starts an explosion. Once the Graphic Violence 
machine-code subroutine is set up, this short 
operation is all you need to generate explosions. 

Remember to stop the program by pressing 
SYSTEM RESET. 

PROGRAM 2 FLOW 

Line 190 -Set up a full-screen graphics mode 7. 
Line 220 -Call the explosion-starting machine 

language routine. This line actually starts 

the explosion. It is of the form: 
A=y5» f A»1I (ENPLS3 , X, Yl 
X and Y are the screen coordinates of the center of 
the explosion. In the listing, X=80 an-d Y=48, 
placing the explosion at the center of the screen. 

This statement is the heart of the Graphic 
Violence routine. Once this statement is executed, it 
starts off an explosion while BASIC continues with 
whatever it is doing. In addition, the explosion 
handler can operate up to 20 explosions simultane- 
ously, while BASIC does its own processing! 
Line 240 -This line is a simple delay loop which 

allows an explosion to dissipate before 

generating another. 
Line 260 -This line goes to start a rtew explosion 

after the wait. 

A LONGER DEMONSTRATION 

In the previous example, we generated one 
explosion at the center of the screen, just to keep 
things simple. In this example, we will see how the 
Graphic Violence routine will handle up to 20 
simultaneous explosions without the programmer 
having to worry about what's going on inside the 
explosion handler! All the programmer needs to do 
is send the explosion coordinates to the routine via 
the USR command and let the computer do the rest. 
(What could be simpler?) 

With listing # 1 in your computer, add listing #3 to 
the original program and RUN it. The program will 
fill up most of the screen with graphics, then start 
dropping "bombs" from the top of the screen. As 
they hit the graphics area, they will explode violently, 
"eating" away the graphics. As soon as one of the 
bombs falls off the bottom of the screen, an end 
message will be displayed and subsequently 
destroyed by a number of explosions. The program 
will run continuously and MUST be stopped by 
pressing SYSTEM RESET. 

PROGRAM 3 FLOW 

Line 190 - Sets up graphics mode 7 and sets COLOR 

#2 (the explosion color) to maximum 

brightness. 
Line 210 -Fills up the bottom section of the screen 

with COLOR 1 graphics. 
Line 230 -Makes sure any error will cause the 

program to continue at Une 320 (the 



"THE END" routine). This TRAP 
statement will take effect when a bomb 
falls off the bottom of the screen. 

Line 250 -Gets the X and Y coordinates where the 
bomb will start its drop. 

Line 270 - Erases old bomb position (using COLOR 
0) and increments Y position so that 
bomb will "fall" toward liottcwn of 
screen. 

Line 290 - Uses the LOCATE command to see if the 
bomb has hit anything. If the bomb hits 
color 1, an explosion is started at the X 
and Y coordinates and a new bomb is 
randomized. 

Line 3 10 - If no hit is detected, the bomb is plotted 
in color 2 , the program waits a fraction of 
a second, then continues at Une 270. 

Line 330 - When a bomb falls off the bottom of the 
screen, the error is TRAPped here. At this 
time, the computer sets up a new graphics 
7 screen, sets the explosion brightness, 
aivd selects COLOR 1. 

Line 350 -This line RESTORES the DATA pointer 
to line 400 (THE END shape data), then 
reads from and to plot data and draws the 
THE END message on the screen. 

Line 370 -This line sets off 200 explosions, which 
destroy the THE END message. Note that 
the explosion USR call has random 
number functions for X and Y 
coordinates of the explosion center. 
There is also a 40 count delay after each 
explosion is started for a more interesting 
display. 

Line 390 - After all explosions are generated, wait a 
few seconds and GOTO line 190 to re-run 
the demonstration continuously. 

Line 410-430 -These lines contain PLOT data for 
the words "THE END". Each line in 
the letters is represented by 4 values, 
made up of 2 sets of X and Y co- 
ordinates, the line endpoints. 

SUMMARY 

The Graphic Violence explosion generator 
subroutine will operate in almost any game using 
graphics 7. Explosions overlapping the edges of the 
screeh are automatically "clipped," but the program 
has minimal error-trapping. The user should take 
care to make sure that the coordinates supplied to 
the routine do not exceed the graphics 7 screen 
limits. The routine uses sound channel 1 when the 
sound generation option is requested. The 
Explosions use COLOR 3 (SETCOLOR 2 ), and will 
cycle the color only (not brightness) if color cycling 
is requested. Any program using the Graphic 
Violence roudne must be terminated with SYSTEM 
RESET to avoid a system crash. 

The following section contains a discussion of the 
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assembly-language routines that n\ake up Graphic 
Violence. This information is not necessary to use 
the subroutine, but may assist those interested in 
assembly language and the inner workings of the 
ATARI computers. 
GENERAL BACKGROUND INFORMATION 

The Graphic Violence subroutine is made up of 
three program segments and two data tables. These 
five modules work together to provide a machine- 
language explosion generator for BASIC. 

The first assembly program (listing #4) is the 
Graphic Violence initialization subroutine. It is 
stored in the BASIC string variable INIT$. Its 
function is to accept the locations of the main 
program module and the explosion plot coordinates, 
start up the main module, and accept the color 
cycling and sound generation options. 

Remember that this is the routine called in the 

BASIC statement: 

A=U5R f ADR f INIT$1 , ADR CMAIN$) , ADR (COORDl 
$) ^0DRtC00RD2$} , COLOR, SOUND) 

PROGRAM 4 FLOW 

Line 230 -This line arbitrarily sets the location 

counter to $6000. Since this routine will 

be fully relocatable and stored in a BASIC 

string, this address does not matter. 

Line 240 -This PLA instruction pulls the first 

argument off of the stack. In a BASIC 

USR call, this argument is always the 

number of arguments passed to the 

machine language routine. We do not use 

it in this case, and it is discarded. 

Line 250-270 -This section zeroes out the explosion 

ready flag and the explosion counter. 

Line 280-330 -This section pulls the low and high 

bytes of the address of the main 

routine (ADR MAIN$), transfers 

them to the X and Y registers, then 

puts a 7 in the accumulator and 

jumps to the SETVBV subroutine. 

This tells the system that we are 

using a vertical blank interrupt. The 

7 indicates that it is a "deferred" 

vertical blank routine, that is, it 

operates after the system's vertical 

blank operation. 

Line 340-410 -This section pulls the low and high 

bytes of the two sets of plot 

coordinates (COORDl$ and 

COORD2$, 4 PLA's total) and 

stores them on page zero ($CB-$CE) 

for later use by the main module. 

Line 420-440 -This section pulls the color cycle 

indicator (COLOR) from the stack. 

Since this is a one-byte indicator and 

the system sends a two-byte 

argument, the first byte (high byte) 

is discarded and the second is stored 

in CYCFLG. 



Line 450-470 -This section is the same as lines 
420-440, except that it stores the 
sound indicator (SOUND) in 
SNDFLG. 
Line 480 -This RTS (Return from Subroutine) 
returns control to your BASIC program 
after the initialization is complete. 
The second assembly language program (Listing 
#5) is the explosion start routine. It is called by the 
BASIC statement: 

A=USR CADR CEXPL$) , X, YI 
This routine simply accepts the coordinates of the 
explosion from BASIC. If there are 20 explosions 
active, it will ignore the request, otherwise it will 
send the coordinates to the main module, which is 
executing in the deferred vertical blank. 

PROGRAM 5 FLOW 

Line 200 -Once again, this listing has its location 
counter set to $6000. It makes no 
difference, since this routine is fully 
relocatable. 
Line 210 -As in the previous listing, this line 
discards the first item on the stack (the 
number of arguments passed to the as- 
sembly routine). 
Line 220-240 -These lines check the variable 
EXPCNT to make sure the new 
explosion can be started. If there are 
less than 20, control is passed to 
EXPOK (explosion OK). 
Line 250-290 -These lines are used if there are 
already 20 explosions. The 
remaining 4 bytes are pulled from 
the stack and discarded, and the 
program returns to BASIC. No 
explosion is generated. 
Line 300-350 -In a manner similar to the COLOR 
and SOUND parameters in listing 
#4, this routine pulls the X and Y 
coordinates off of the stack and 
places the values in NEWX and 
NEWY for use by the main module. 
Line 360-370 - This section places a 1 in the READY 
flag, which tells the main interrupt 
routine that a new explosion is ready 
to start. 
Line 380 - This RTS instruction simply returns con- 
trol to BASIC. In this way, the interrupt 
can start the explosion graphics while 
BASIC keeps running normally. 
The third assembly language listing (LISTING #6) 
is the vertical blank interrupt routine, stored in 
MAIN$. It does all the color cycling, sound, and 
graphics for the explosions. Since it is an interrupt- 
driven program, it operates independently of 
BASIC, allowing BASIC to continue processing 
normally while the vertical blank does all the 
explosion work. 
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Since this program is stored in a BASIC string, any 
program editing or immediate mode operations in 
BASIC while the vertical blank routine is running 
will cause a system crash. This is due to the fact that 
BASIC moves its variables around in memory during 
editing of programs, and such movement of the 
interrupt routine will confuse the system. To help 
avoid such a problem, the Graphic Violence 
interrupt routine disables the break key, making it 
necessary to press SYSTEM RESET to stop program 
execution. This is only a partial solution, however, 
since if the programmer allows his program to end 
with the READY prompt, then enters a program 
line, the crash will still occur. 

The interrupt routine performs several functions. 
First, it disables the BREAK key and cycles the color 
of playfield type 2 if necessary. Next it processes 
sound, if required, using sound channel 1. The last 
major function it performs is that of explosion 
graphics generation. 

Each explosion graphic is made up of 89 separate 
pixels. The routine uses the specified centerpoint of 
each explosion and adds X and Y offset values, which 
are stored in the BASIC string variables COORD 1$ 
and COORD2$. Each of the 89 pixels are first 
turned on, one pixel at a time, resulting in a 
"growing" appearance. After all 89 pixels are on, the 
routine turns off one pixel at a time, causing the 
explosion to dissipate. Each active explosion has a 
pixel either turned on or off each time the interrupt 
is performed. Since this happens 60 times a second, 
each explosion takes roughly 3 seconds to expand 
and dissipate ((89*2)/60). Explosions are 
independent of each other because of three tables. 
The X and Y coordinates of each explosion are 
stored in the XPOS and YPOS tables. The third 
table, CNT, holds the number of the pixel which will 
be turned on or off next for each explosion. This 
value ranges from to 88 for "on" pixels, and 89 to 
177 for "off" pixels. If the CNT value for an 
explosion exceeds 177, the explosion has dissipated 
completely and its values are removed from the 
explosion tables by a "repack" operation. That is, if 
explosion number 2 is finished, explosion 3 will 
move back to 2, 4 to 3, etc. 

PROGRAM 6 FLOW 

Line 500 -Clears decimal mode. This instruction is 
vital when writing subroutines for BASIC 
that do any binary arithmetic. 

Line 5 10-540 - Disables the BREAK key by altering 
POKMSK and IRQEN, the interrupt 
request enable. This prevents the 
BREAK key from generating an 
interrupt. 

Line 550 -640 - Cycles colors if CYCFLG is not zero. 

Line 650-770 -Processes explosion sound if 
SNDFLG is not zero. 

Line 780-940 -Monitors the READY flag to see if 



there is a new explosion. If not, the 
program checks for any old 
explosions at MAIN. If there is a 
new explosion, the routine sets up 
the XPOS, YPOS and CNT tables 
with the new information. 
Line 950 -Zeroes out COUNTR, the variable 
indicating which explosion is being 
processed. 
Line 960-1000 -Increments the explosion counter. 
If the counter is greater than the 
current number of explosions 
active (EXPCNT), the routine 
jumps to XITVBV, the vertical 
blank exit vector. Otherwise 
control is passed to INDEX. 
Line 1130-1350 -This section repacks the XPOS, 
YPOS and CNT tables to eliminate 
a "dead" explosion. It then 
branches back to RUNLP to 
handle the next explosion. 
Line 1360-2350 -This routine turns explosion 
pixels on or off, depending on the 
PLOTCLR setting. If the pixel is 
off the screen, the plot is aban- 
doned by a branch to RUNLP. 
By expanding the XPOS, YPOS and CNT tables 
and altering the explosion call routine (Listing #5), 
advanced users can enable the Graphic Violence 
routine to handle many more explosions than it can 
now. However, 20 explosions are more than enough 
for most applications, and the routine should serve 
well as is. 

I hope that ATARI programmers will see by this 
example that it is not always necessary to write game 
programs completely in assembly language. Just use 
BASIC for complicated functions difficult to write 
in assembler, and use assembler for things BASIC is 
too slow to do. 

And by the way, have fun causing graphic havoc 
on your computer! D 



LISTING 1 

le REN K1C1C1CMMMK1C1(1()(K1IK1CM)(1CKK1CIC1C1CK 
29 REH » GRAPHIC VIOLENCE DEMO » 
38 REM » A.N.A.L.O.G. COMPUTING « 
46 REM « BY TOM HUDSON * 

59 REM KKMKMICICICKICKICXKKMKKKKKIIICKKM 

60 REN 

79 REM »»»f INITIALIZE THE GRAPHIC UIOL 
ENCE SUBROUTINE «M« 

80 GOSUB 18010 
90 REH 

100 REM KKKKMKMXMICMKICKMKMKMKICICMKMKKKK 
110 REH ** YOUR PROGRAM GOES HERE! ** 
120 REM MMKKMMKKWKKMKMMMlCKKMimKMlCltMIClC 
130 GOTO 130 
10000 REM JBf* INITIALIZATION SUBROUTIN 

i?®i2„R^'*^^''^TS C41J , EXPLS C29J , MAINS C35 
S]^C00RD1$C89) ,C00RD2S(89) :RESTORE 110 
00 

iSS?®„^°T=®i''0'* ^=^ TO 89: READ A:TOTzT 
SJ?5i'^°°"'*^**'*'«'=CHRStA3:NEXT K : IF TO 
T09984 THEN ? "COORDl ERR":EN6 



ISSUE 8 



A.N.A.L.O.G, COMPUTING 



PAGE 61 



10038 TOT=0:FOR H=l TO 89:REi)D l»:TOT=T 

0T + ft:COORI)2S<K,X)=CHR5<ft) :NEXT K : IF TO 

T09984 THEN ? ■'C00RD2 ERR":EMD 

10040 TOT=0:FOR K=l TO 41:READ ft:TOT=T 

OT+ft:IMITSfK^KJ=:CHRS(ftJ :HEHT K:IF TOT< 

>4237 THEN ? "INIT ERR-':END 

10058 TOT=0:FOR H=l TO 29 : REftD ft:TOT=T 

0T+fl:EHPL5CX,XJ=CHRStflJ :HEKT X:IF TOT< 

>2198 THEN ? "EXPL ERR":END 

10860 TOT=0:FOR X=l TO SSSrREAD «:TOT= 

TOT+rt:MftINS(X,XJ=CHRSfAJ IHEXT X:IF TOT 

036691 THEN ? "MfllN ERR":END 

10070 REM *** 5ET UP PLOT BIT5 «*» 

10080 POKE 1568,192:P0KE 1569,48:P0KE 

1570,12:POKE 1571j3 

10090 REM *** IMITIflLIZE GRAPHIC VIOLE 

NCE ROUTINE AND RETURN *»» 

10100 A=USR CADR (INIT$] , ADR CMAIN$> , ADR ( 

C00RD1$] ^ ADR(C00RD2$] ,1^1} 

10110 RETURN 

11000 REM *** CDORDl DATA »«* 

11810 DATA 0,1,255,0,255,0,255,2,1,1,0 

,254,255,1,0,1,254,254,2,0,1,255,2,2,2 

,255,254,1,253,3,3,4,252,253,254 

11020 DATA 255,254,2,3,3,253,0,0,0,4,4 

,252,255,2,0,3,2,1,253,254,254,252,253 

,3,253,252,251,251,252,4,3,4,255 

11838 DATA 5,5,5,253,1,254,0,255,252,2 

53,251,253,252,3,4,3,1,255,1,2,4 

12800 REM *** C00RD2 DATA *«« 

12010 DATA 0,255,1,2,254,255,0,1,254,0 

,1,0,255,1,253,253,2,255,255,254,2,3,2 

,0,254,2,1,3,254,1,254,255,0,1,253 

12020 DATA 253,254,3,2,0,3,252,4,3,0,2 

,2,4,4,5,3,253,252,0,3,4,254,252,252,2 

,1,1,0,255,254,255,1,251 

12030 DATA 0,255,1,4,4,252,251,252,253 

,253,255,255,3,253,253,4,251,5,5,252,3 

13000 REM *** INITIALIZATION CODE *** 

13010 DATA 104,169,0,141,0,6,141,1,6,1 

04,170,104,168,169,7 

13820 DATA 32,92,228,104,133,284,184,1 

33,283,184,133,206,104,133,205 

13830 DATA 104,104,141,11,6,104,104,14 

1,12,6,96 

14000 REM «*» EXPLOSION CALL CODE *** 

14010 DATA 104,173,1,6,201,20,48,5,104 

,184,184,184,96,184,104 

14028 DATA 141,2,6,184,104,141,3,6,169 

,1,141,0,6,96 

14990 REM *** MAIN INTERRUPT CODE *** 

15800 DATA 216,165,16,41,127,133,16,14 

1,14,210,173,11,6,240,20 

15818 DATA 173,14,6,24,185,16,141,14,6 

,173,198,2,41,15,13 

15828 DATA 14,6,141,198,2,173,12,6,240 

,22,173,13,6,240,17 

15030 DATA 56,233,1,141,13,6,74,74,74, 

141,1,210,169,40,141 

15040 DATA 0,210,173,8,6,248,31,238,1, 

5,174,1,6,173,2 

15858 DATA 6,157,64,6,173,3,6,157,85,6 

,169,127,141,13,6 

15868 DATA 169,8,157,106,6,141,0,6,141 

,5,6,238,5,6,173 

15878 DATA 1,6,205,5,6,16,3,76,98,228, 

174,5,6,169,0 

15888 DATA 141,4,6,189,186,6,281,89,48 

,51,238,4,6,56,233 

15898 DATA 89,201,89,48,41,138,168,232 

,236,1,6,240,2,16,21 

15100 DATA 189,64,6,153,64,6,189,85,6, 

153,85,6,189,186,6 

15118 DATA 153,106,6,200,208,227,206,1 

,6,206,5,6,169,0,240 

15120 DATA 176,254,106,6,168,189,64,6, 

24,113,203,141,6,6,281 

15130 DATA 160,176,159,189,85,6,24,113 

,205,141,7,6,201,96,176 

15140 DATA 146,10,133,207,169,0,248,2, 

240,137,133,208,165,207,10 

15150 DATA 133,207,165,208,42,133,208, 

165,287,10,133,207,141,9,6 

15168 DATA 165,208,42,133,288,141,8,6, 

165,207,10,133,207,165,208 ^, ^ 

15170 DATA 42,133,208,165,207,18,133,2 

07,165,208,42,133,208,165,207 



15180 DATA 24,109,9,6,133,287,165,208, 

189,8,6,133,208,165,88 

15190 DATA 24,101,207,133,287,165,89,1 

01,208,133,208,173,6,6,41 

15200 DATA 3,168,190,32,6,142,10,6,173 

,6,6,74,74,24,101 

15210 DATA 207,133,207,165,208,105,0,1 

33,208,160,0,173,4,6,208 

15220 DATA 11,173,10,6,81,207,145,207, 

169,0,240,132,173,10,6 

15230 DATA 73,255,49,207,145,207,169,0 

,240,241 



D: CHECK DATA 

10 DATA 280,584,117,872,443,39,803,938 
,42,503,948,583,773,754,453,8132 
10820 DATA 663,814,280,321,554,442,562 
,706,821,779,332,901,124,164,556,8019 
12010 DATA 151,34,36,734,44,907,884,83 
1,254,592,785,494,178,812,217,6945 
15840 DATA 696,834,922,296,863,301,996 
,27,550,398,634,887,664,954,378,9392 
15198 DATA 817,737,589,518,917,3498 



130 
140 
158 
160 
178 
188 
190 
208 
210 
228 
230 
240 
250 
268 



LISTING 2 

REM KKMMKKKKKKKICICKMKKMKKKMKKMMK 

REM * GRAPHIC VIOLENCE DEMO « 

REM * NUMBER 1 * 

REM KMKMKICMMMMmtKICItKmCMMKMKmCKM 

REM 

REM *** SET UP GRAPHIC MODE 7 »«» 

GRAPHICS 7+16 

REM «»» SET OFF AN EXPLOSION *** 

REM *** AT SCREEN CENTER **H* 

A=USRCADRCEXPL$) ,80,48) 

HEM *«* HAIT A FEW SECONDS *«* 

FOR MAIT=1 TO 2000: NEXT WAIT 

REM *** DO EXPLOSION AGAIN *** 

GOTO 220 



LISTING 3 



130 REM KKICKMKKMKKMMICICMMMMICKKMMKKKIC 
140 REM * GRAPHIC VIOLENCE DEMO « 
150 REM * NUMBER 2 * 

160 REM MMKMMIOCMKlimCltmCMmilCMICmimtMM 
170 REM 

180 REM *** SET UP GRAPHICS 7 FULL SCR 
EEN AND EXPLOSION COLOR *** 
190 GRAPHICS 7+16:SETC0L0R 2,15,15 
200 REM *** DRAW THE 'GROUND' *** 
218 COLOR l:FOR Y=20 TO 95".PL0T 0,V:DR 
AMTO 159,V:NEXT Y 

220 REM ««* TRAP ANY ERRORS TO 'THE EN 
D' ROUTINE *** 
230 TRAP 328 

248 REM *** RANDOMIZE START POINT FOR 
DROPPING BOMBS *** 
258 X=5+RNDfO)«149:Y=RNDfO)«3 
260 REM *** ADVANCE THE BOMB AS IT DRO 
PS *Ht« 

270 COLOR OrPLOT X,Y:Y=Y+3 
280 REM «*» IF THE BOMB HITS COLOR 1, 
SET OFF EXPLOSION *** 

290 LOCATE X,Y,Z:IF Z=:l THEN A=USRCADR 
CEXPL5),X,YJ -.GOTO 258 

300 REM **» NO HIT, CONTINUE DROP *** 
310 COLOR 2:PL0T X,Y:FOR DELAY=1 TO 10 
:NEXT DELAY:G0T0 270 
320 HEM *** "THE END' *** 
338 GRAPHICS 7+16 :SETCOLOR 2,15,15:C0L 
OR 1 

348 REM *** PLOT 'THE END' *«« 
350 RESTORE 406: FOR X=l TO 22: READ FRK 
,FRY,TUX,TUY:PLOT FRX,FRY :DRAMTO TUX,T 
UY:NEXT K 

368 REM *** SET OFF 280 RANDOM EXPLOSI 
ONS *** 

378 FOR EXPL=1 TO 288 : A=USR CADR (EXPL$) 
,48+RNDC6)«75,2e+HNDfeJ«55J :FOR DELAY= 
1 TO 40: NEXT DELAY: NEXT EXPL 
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388 REM «*» LET EXPLOSIONS DIE, THEN R 

E-RUH THE DEMO *BH( 

398 FOR DELflV^l TO Ze88:NEXT DELAY :GOT 

190 

408 REM *** 'THE END" DftTA *** 

418 DflTft 50,25,67,25,53,25,59,45,72,25 

,72,45,72,35,88,35,88,25,88,45,93,25,9 

3,45,93,25,189,25,93,35,109,35 

426 DATA 93,45,109,45,50,50,50,70,50,5 

0,67,50,50,88,67,68,58,70,67,78,72,78, 

72,50,72,50,88,70,88,70,88,50 

438 DATA 93,58,93,70,93,50,102,50,182, 

50,109,56,109,56,109,64,109,64,102,70, 

182,79,93,70 



LISTING 4 



0340 


PLA 


0350 


STA NEMY 


0360 


LDA til 


0370 


STA READY 


0380 


RTS 


0390 




0400 


.END 



GRAPHIC VIOLENCE 
A.N.A.L.O.G. COMPUTING 118 
INITIALIZATION CODE 



0100 

0110 

0120 

0130 

0140 

0150 , 

0160 READY = S600 

0170 EKPCMT = S601 

0180 CYCFLG = S60B 

0190 SNDFLG = SSOC 

0200 COORDl = SCO 

0210 C00RD2 = SCD 

0220 SETVBU = SE45C 

0230 «= $6000 

0240 IHIT PLA 

0250 LDA ttO 

STA READY 

STA EHPCNT 

PLA 

TAX 

PLA 

TAV 

LDA «7 

J5R SETUBU 

PI A 

STA COORDl+1 

PLA 

STA COORDl 

PLA 

STA C00RD2+1 

PLA 

STA C00RD2 

PLA 

PLA 



0260 
0270 
0280 
8298 
0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0480 

0410 

0420 

0430 

E FLAG 

0440 STA CYCFLG 

0450 PLA 

0460 PLA 

0470 STA SNDFLG 

0480 RTS 

0490 .END 



; DISCARD 

;ZERO OUT: 

; READY FLAG 

;tt OF EKPL, 

; INTERRUPT HI 

;PUT IN X 

MNTERRUPT LO 

;PUT IN V 

;DEFERRED UBI 

J SET IT« 

; COORDl HI 

jSAUE IT 

;PULL COORDl LO 

jSAUE IT 

;PULL C00RD2 HI 

JSAUE IT 

;PULL CO0RD2 LO 

jSAUE IT 

; DISCARD 

jPULL COLOR CYCL 

;SAVE IT 

J DISCARD 

;PULL SOUND FLG 

;SAUE IT 

; FINISHED! 



0100 

0110 

0120 

0130 

0140 

8150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0236 

0240 

0258 

0260 

8270 

0280 

0290 

0380 

0310 

0320 

6330 



LISTING 5 

GRAPHIC VIOLENCE 

A.N.A.L.O.G. COMPUTING t»8 

EXPLOSION CALL ROUTINE 

READY = $600 
EXPCNT - $601 
NEWX = 5602 
NEMY = $683 

K=S6O0O 

PLA 

LDA EXPCNT 

CHP 1120 

BMI EXPOK 

PLA 

PLA 

PLA 

PLA 

RTS 
EXPOK PLA 

PLA 

STA NEHX 

PLA 



; DISCARD 
;lt OF EKPL. 
,"20 ACTIVE? 
;N0, IT'S OK! 
;YES, DISCARD 
;BOTH COORDS 



;AND EXIT 
; DISCARD HIGH 
J GET X-COORD 
; STORE IT 
;DISCARD HIGH 



0100 

one 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0266 

0270 

0280 

0290 

0300 

0310 

0320 

8330 

0340 

0350 

0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0500 

0518 

0520 

0530 

0540 

8558 

0560 

0570 

0580 

0590 

6600 

8618 

8620 

8638 

8648 

8650 

0660 

0670 

0680 

0698 

0700 

6710 

0720 

0730 

0740 

0758 

8760 

0770 

0780 

0790 

0860 

0810 

0820 

0830 

8846 



;GET Y-COORD 
JSTORE IT 

;tell interrupt 
;we're ready! 
;and exit back 

TO BASIC! 



LISTING 6 

; GRAPHIC VIOLENCE 

; A.N.A.L.O.G. COMPUTING 1*8 

; VBLAHK INTERRUPT ROUTINE 

READY = $600 
EXPCNT = $661 
NEMX = $602 
NEHV = $603 
PLOTCLR = $604 
COUNTR = $605 
PLOTX = $606 
PLOTY = $607 
HIHLD = $608 
LOHLD - $609 
PLOTBVT = $6eA 
CYCFLG = $68B 
SNDFLG = $60C 
SNDCNT = $60D 
COLOR = $60E 
PLOTBL = $620 
XPOS = $640 
YP05 = KPOS+21 
CNT = YPOS+21 
LO = $CF 
HI = $D0 
COORDl = $CB 
C00RD2 = $CD 

;SYSTEM EQUATES 

XITVBV = $E462 
C0LPF2 = $2C6 
AUDCl = $D201 
AUDFl = $D20e 
SAVMSC = $58 
POKNSK = $18 
IROEH = $D28E 

«=$6800 

CLD 

LDA POKMSK 

AND tt$7F 

STA POKMSK 

STA IRQEN 

LDA CYCFLG 

BEQ CONT 

LDA COLOR 

CLC 

ADC ttl6 

STA COLOR 

LDA C0LPF2 

AND tt$OF 

ORA COLOR 

STA C0LPF2 
CONT LDA SNDFLG 

BEO GO 

LDA SNDCNT 

BEQ GO 

SEC 

SBC «1 

STA SNDCNT 

LSR A 

LSR A 

LSR A 

STA AUDCl 

LDA tt40 

STA AUDFl 
GO LDA READY 

BEQ MAIN 



CLEAR DECIMAL 
GET IRQ INT. 
NO BREAK KEY 
THE BREAK KEY 
IS NOU OFF! 
CYCLING COLOR? 
NO, CONTINUE 
GET LAST COLOR 
INCREMENT IT 
BY 16 

AND SAVE IT 
GET COLOR REG. 
GET BRIGHTNESS 
ADD THE COLOR 
AND SAVE IT! 
SOUND OH? 
HO, SKIP IT! 
MORE SOUND? 
NO, SKIP IT! 
DECREMENT THE 
SOUND COUNTER 
AND STORE IT 
SHIFT DOWN TO 
DERIVE VOLUME 
FROM COUNTER 
SET UP SOUND 
CHANNEL 1. . . 
FINISHED! 
NEU EXPLOSION? 
NO, CONTINUE 



;AT THIS POINT, 
;NEH EXPLOSION! 

'iMC EXPCNT 



THERE IS A 



;ONE MORE EXPL 
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esse 

6868 

ee/e 
esse 

B89e 
8968 

89ie 

8928 

0936 

8948 

6956 

8968 

8976 

8988 

6998 

1688 

1616 

1626 

1636 

1848 

185e 

1868 

1678 

1888 

1696 

1188 

1118 

1128 

1138 

1148 

1158 

1166 

1178 

1186 

1196 

1268 

1216 

1226 

1238 

1248 

1258 

1266 

1278 

1288 

1298 

1388 

1316 

1328 

1330 

1346 

1358 

1368 

1378 

1388 

1398 

1488 

1418 

1426 

1438 

1446 

1458 

1466 

1478 

1488 

1498 

1588 

1518 

1528 

1538 

1548 

1558 

1568 

1578 

1588 

1598 

1688 

1618 

1628 

1630 

1648 

1656 

1668 

1678 

1688 

1698 

1788 

1718 



LDK EXPCNT 

LDA HEUX 

5TA XP05,H 

L»A NEHY 

5Tft YP05,K 

LDA ttl27 

STA 5NDCNT 

LDA tt8 

STA CNT,X 

5TA READY 
MAIN STA COUNTR 
RUNLP INC COUNTR 

LDA EKPCNT 

CMP C8UNTR 

BPL INDEX 

JNP XITUBV 
INDEX LDX CeUNTR 

LDA ne 

STA PLOTCLR 
LDA CNT,X 

'CW «89 
BHI DOPLOT 
INC PLOTCLR 
SEC 

SBC n89 
cra> tt89 
BMI DOPLOT 
TXA 
TAY 



PUT IN INDEX 
GET X-C60RD, 
PUT IN TABLE 
GET Y-C06RD, 
PUT IN TABLE 
INITIALIZE THE 
SOUND COUNTER 
INIT COUNTER 
FOR EXPL IHAGE 
AND READY FLAG 
ZERO COUNTER 
NEXT EXPLOSION 
GET Jt OF EXPL. 
ANY MORE EXPL? 
YES, CONTINUE 

GET INDEX 
SET PLOTCLR 
6=PL0T A BLOCK 
GET COUNTER 
FOR EXPLOSION 
ALL DRAMN? 
NO, DO IT NOM 
1=ERASE BLOCK 
GET READY FOR 
ERASE CYCLE 
ERASE DONE? 
NO, ERASE BLOCK 
HOVE INDEX 
T8 V REGISTER 



;THE FOLLOHING ROUTINE REPACKS 
;THE EXPLOSION TABLE TO GET RID 
;0F EXPLOSIONS THAT ARE DONE. 



REPACK INX 

CPX EXPCNT 

BE6 RPK2 

BPL RPKEND 
RPK2 LDA XPOS,X 

STA XPOS,V 

LDA YPOS,X 

STA YPOS,V 

LDA CNT,X 

STA CNT,Y 

INY 

BNE REPACK 
RPKEND DEC EXPCNT 

DEC COUNTR 

LDA tt8 

BEQ RUNLP 
DOPLOT INC CNT,X 

TAY 

LDA XPOS,X 

CLC 

ADC (C00RD1],Y 

STA PLOTX 

CMP ttl68 

BCS RUNLP 

LDA YPOS,X 

CLC 

ADC CC00RD21,Y 

STA PL0TY 

CMP tt96 

BCS RUNLP 



;NEXT EXPLOSION 

;DONE? 

;N0, REPACK MORE 

;YES, EXIT! 

;N0, START RPK 

;HOUE BACK X 

;mVE BACK Y 

;mVE BACK CNT 

;NEXT REPACK 

;DEC POINTERS 
;DUE TO REPACK 
; FORCE BRANCH 
;T0 NEXT EXPL. 
;INC COUNTER 
;EXP PHASE IN Y 
;GET X-COORD 

;ADD X OFFSET 
; STORE IT 
;OFF SCREEN? 
;YES, DON'T PLOT 
;GET Y-COORD 

;ADD Y OFFSET 
;STORE IT 
;OFF SCREEN? 
;YE5, DON'T PLOT 



;THE FOLLOWING SECTION IS A 
; DEDICATED MULTIPLY ROUTINE 
;HHICH MULTIPLIES THE A REGISTER 
•BY 48, MITH RESULT IN LO i HI 



ASL A 
STA LO 
LDA tt8 
BEQ X2 
JRUNLP BEO RUNLP 



X2 STA HI 
LDA LO 
ASL A 
STA LO 
LDA HI 
ROL A 
STA HI 
LDA LO 
ASL A 
STA LO 
STA LOHLD 



;«2 



;«4 



1728 


LDA 


HI 




1730 


ROL 


A 




1748 


STA 


HI 




1758 


STA 


HIHLD 


;»8 


1766 


LDA 


LO 




1778 


ASL 


A 




1786 


STA 


LO 




1798 


LDA 


HI 




1888 


ROL 


A 




1818 


STA 


HI 


;»16 


1828 


LDA 


LO 




1838 


ASL 


A 




1848 


STA 


LO 




1858 


LDA 


HI 




1868 


ROL 


A 




1878 


STA 


HI 


;»32 


1888 


LDA 


LO 




1898 


CLC 






1988 


ADC 


LOHLD 




1916 


STA 


LO 




1920 


LDA 


HI 




1930 


ADC 


HIHLD 




1948 


STA 


HI 


J +»8=»46 


1958 








1960 


;AT THIS POINT, 


THE MULTIPLY BY 


1978 


;46 IS FINISHED, AND ME NEED TO 


1988 


;GET 


AN OFFSET 


INTO THE SCREEN 


1998 


; MEMORY 




2868 








2818 


'lda 


SAVMSC 


jADD THE DISPLAY 


2628 


CLC 




;ADDRESS TO GET 


2838 


ADC 


LO 


;THE ACTUAL 


2648 


STA 


LO 


; ADDRESS OF THE 


2858 


LDA 


SAVMSC+1 


J BYTE THAT HILL 


2668 


ADC 


HI 


JBE ALTERED FOR 


2870 


STA 


HI 


;THE PLOT. 


2688 


LDA 


PLOTX 


;MASK PLOTX FOR 


2890 


AND 


tt3 


;THE PLOT AND 


2188 


TAY 




;PLfiCE IN V REG 


2110 


LDX 


PLOTBL,Y 


;GET PLOT BITS, 


2128 


STX 


PLOTBYT 


;AND SAVE! . 


2130 


LDA 


PLOTK 


;GET PLOTX AND 


2148 


LSR 


A 


;DIVIDE 


2158 


LSR 


A 


;BY 4 


2168 


CLC 




;AND ADD TO 


2178 


ADC 


LO 


;PLOT ADDRESS 


2188 


STA 


LO 


;FOR FINAL PLOT 


2198 


LDA 


HI 


; ADDRESS. 


2288 


ADC 


ite 




2218 


STA 


HI 




2228 


LDY 


tt6 


JZERO OUT V REG. 


2238 


LDA 


PLOTCLR 


{ERASING? 


2248 


BNE 


CLEARIT 


J YES, GO CLEAR IT 


2258 


LDA 


PLOTBYT 


;GET PLOT BITS, 


2268 


E6R 


CLO>,V 


jALTER DISPLAY, 


2278 


STA 


CL01,Y 


;AND PLOT IT! 


2288 


LDA 


tt6 


:FORCE BRANCH 


2296 


JiHfNLP2 BEfi JRUNLP ;AND EXIT! 


2388 


CLEARIT LDA PL8TBYT ;PLOT BITS 


2316 


EOR 


tt$FF 


jFLIP 'EM 


2326 


AND 


CLB),V 


JALTER DISPLAY 


2336 


STA 


CLOJ.Y 


;AND ERASE IT! 


2346 


LDA 


tto 


; FORCE BRANCH 


2358 


BEO 


JRUNLP2 


;AND EXIT! 


2368 


.END 
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Great Autumn Offerings 




PROBE ONE 



From Synergistic Software 

High-res action game. You're the commander of the 
Terran space ship PROBE ONE during the war be- 
tween the Terran Confederation and the Drelgan 
Hegemony. Only you can save the human race from 
extinction by the Drelgans...if you can find the mat- 
ter transmitter and bring It to Terra. You'll need a 
quick mind and fast reflexes to fight off the guard 
robots as you search. Multiple skill levels. BASIC 
required; paddles or joystick. 

40K Tape, SUSS: ^i^/^'/i / 
Now Thru Oct. 15 You Pay Just $29.71 




CAVERNS OF MARS 

By Greg Christensen from APX 
An award-winning arcade game that will challenge 
your skill for many, many plays. You command the 
fighter Helicon VII on a mission to invade the Mar- 
tian high command. The headquarters are located 
deep in the caverns, so you must descend through 
radar, rockets, laser gates, and space mines to reach 
your destination. Once there, you activate the fusion 
bomb and try to get out before it detonates. Good 
luck! Joystick required. , , ^ ^ ^ ,-^// 

16K Tape, $34.95 -YWWZ£ THBy lASf/f 
16K Disk, $37.95 

■JEtari 

DE RE 
ATARI 

From APX 

Translated from Latin, the title of this book is "All 
About Atari" and it means what it saysl LIsed in 
combination with Atari's Technical Reference 
Manual, advanced programmers will be able to learn 
to exploit the many hardware and operating system 
features that make the Atari 400/800 so tremendous- 
ly versatile. Includes a useful discussion of the new 
GTIA chip. Once you know Atari BASIC and 
assembler, this book is a must. 

Loose leaf (binder not supplied), $19.95 




From DataSoft Inc. 

^ Games, Graphics, Word Processing Programs 




SHOOTING 
ARCADE 

From DataSoft 
Step right up, ladles and gentlemen, and try your 
luck! It's your favorite amusement park game right 
In your own home! Aim at the elephants, ducks, bun- 
nies and more. Every time you hit the target you 
score. But aim carefully— don't waste bullets. Fire 
at a frowning face and your bullets turn to blanks; 
shoot the smiling face and win BIG! If you make It 
to the 10th round, there's a surprfss. Requires Joystick. 

16KDisk,j$29:9S ^?^^X-5^/ 

Now Thru Oct. 15 You Pay Just $25.46 



CLOWNS 

AND 

BALLOONS 




From DataSoft by Frank Cohen 
A huge bunch of balloons is stuck at the top of the cir- 
cus tent. How do you get them down? By bouncing a 
clown on a trampoline, high enough to burst them, of 
course! You must break the balloons In order, one row 
at a time— if you miss any, the whole row fills up 
again. Aim your clowns where you want them by mov- 
ing the trampoline to just the right position. 1 or 2 
players; multi-skill levels; joystick or paddle required. 

16K Tape or Disk, $29.95 



CANYON 
CLIMBER 




From DataSoft by Tim Ferris 
You're at the bottom of the Grand Canyon, trying to 
scale the wodd's toughest wall. If that's not enough 
of a problem, there are three challenges to face 
along the way: angry sheep, threatening Indians and 
attacking birds. Action-packed arcade game you'll 
really enjoy. Requires joystick. 

16K Tape or Disk, $29.95 

SPELL WIZARD 

From DataSoft 

SPELL WIZARD is a proof-reading package, compat- 
ible with Atari's word processor and Text Wizard. It has 
a dictionary of 20,000 words; you can add up to 5,000 
more. Insert your letter, term paper or the latest 
chapter of your novel, and SPELL WIZARD will proof- 
read it for you. Your copy will be perfect. 

32K Disk, $79.95 



Over 1 500 Programs for TRS-80, 



For Information Call 
202-363-9797 

Visit our other stores: 

Seven Comers Center, Falls Church, VA 

W. Bell Plaza, 6600 Security Blvd., Baltimore MD 

Coming Soon to Columbus, OH and Greensboro, NC 
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MICROPAINTER 



From DataSoft by Bob Bishop 
Create your own color graphics with this "electronic 
coloring book" for all ages and abilities. The special 
features include: draw mode, diamond fill, 
microscope mode for "close-up" viewing, inverslng, 
rubberband line draw, and joystick-controlled easel 
tor selecting pattern, colors and intensities. 

48K Disk, $34:95 ,'y3i/(i /:$% / 
Now Thru Oct. 15 You Pay Just $29.71 \ 



PACIFIC 

COAST 

HIGHWAY 




From DataSoft by Ron Rosen 
Fast-action game with good graphics for 1 or 2 
players. You're a tortoise, trying to cross the 
Highway without getting hit by the rush hour traffic. 
Once across, you're at the shore, and must leap 
from boats to rafts on the Pacific Ocean. Be careful 
'cause you can't swim! Requires joystick. 

16K Tape or Disk, $29.95 

TEXT WIZARD 2.0 

From DataSoft 

This Is the newest version of the Atari word processing 
package TextWizard, so popular with writers, students 
annd small business people. Like the original, you can 
learn and use TextWizard 2.0 In alKiut an hour; write 
copy, then edit; underline, insert or replace words or 
paragraphs (in one place or throughout text); print in 1 
or 2-column format; get multiple copies, print In 
boldface, elongated or condensed lettering with pro- 
portional spacing. It even warns you about errors 
beion you make them! 

TEXTWIZARD 2.0 now has file compatibility with File 
Manager 800 so you can change your text with infor- 
mation taken from File Manager files; address your 
form letters from File Manager's mailing lists, etc. It's 
also compatible with: EPSON MX-80 with Graftrax 
Plus ROMS; NEC 8023-A; Okidata and Pro-Writer. In- 
struction manual with 3-ring binder. 

32K Disk $99.95 



ATARI 400/800, APPLE & IBM. 



Y 



To O rder Call Toll-Free 
800-424-2738 1^ 



IMAIL ORDERS: Send checl( or U.O. for total purchase 
price, plus $1.00 postage & handling. D.C., MD. & VA.: add 
sales tax. Charge cards: include all emt>ossed iniormation 
on the card. 



4200 Wisconsin Avenue, NW, Dept. A209 Box 9609 Washington, D.C.2001 6 



For Your A ATARI H00/800(i^ 

i /TORE 

C From Synapse Software 

I Arcade-Type Action Games, Application Software 




SHAMUS 



From Synapse Software 

It's the 21st century, and you're the SHAMUS, looking 
for your arch-enemy, the Shadow, to destroy him. 
You're armed with lon-Shivs, the most powerful 
weapons In the galaxy. Can you handle the Shadow's 
henchmen: Robo-Drolds, Whirling Drones and Snap- 
Jumpers, all armed and evil? Can you find the Shadow 
in his iair of 4 levels with 32 rooms each. . .every one 
of them dangerous? Intensive arcade action; requires 
joysticl(s. ,^-> /^roy / 

16K Tape or Disk, Saftaff b'=^>^'^0/&! 
Now Thru Oct. 15 You Pay Just $25.46 




PROTECTOR 



From Synapse Software 

The planet's inhabitants are endangered by a malevolent 
alien that beams them to his ship and transports them to 
an active volcano. You must picl< them up one-byone 
with your rescue/attack ship and transport them to 
another city while dodging lasers and rough ten-ain. After 
you save as many as possible, the volcano erupts. You 
must then move each person to a volcano-proof vault in 
the mountains! Great graphics and sound in this arcade 
game. Requires joystick. 

32K Tape or Disk, $29.95 

FILE MANAGER 800 

From Synapse Software 

An extremely powerful and versatile database 
manager for use in both professional and personal 
applications. You define the format of the records to 
be filed and FILE MANAGER 800 gives you full con- 
trol over sorting, searches, and retrieval. 
You can store up to 1000 records on each disk and 
the program will allow up to four drives. Access to 
any record takes less than 1.5 seconds, and most 
commands can be entered with self-prompting 
single key strokes. Works with Text Wizard 2.0 to 
make editing easier. 
40K Disk, $99.95 




FORT 
APOCALYPSE 

From Synapse Software 

The Warlords of Kraltha have constructed a prison 
deep inside Earth— the terrifying FORT APOCALYPSE, 
All those who have tried to rescue their slave/captives 
have vanished without a trace. Now fCs your (urn/ Can 
you descend thru the Kralthian disrupter fields and 
penetrate the vast underground Vaults of Draconis? 
Can your Rocket-Copter fight off the Wormlings, Sen/o- 
Tank Interceptors and Robo-Choppers? Multi-player 
game with arcade action; requires joysticks. 

32K Tape or Disk, J$3ft95 f^>'e/6%! 
Now Thru Oct. 15 You Pay Just $25.46 



SLIME 




From Synapse by Mike Hales 
Large drops of "Slime" fall from the sky onto your 
ships. If one drop hits your ship, it will sink. Use the 
triangular diverters to aim Slime into buckets on the 
sides of the screen. If Slime falls into the ocean, the 
level of the ocean rises. When the ocean reaches the 
top of the screen, the game is over, and your score is 
calculated. One-player game with excellent graphics. 
16K Tape or Disk, $29.95 Requires joystick. 




From Synapse Software 

There's trouble in the barnyard, and this machine- 
language, arcade game will challenge even the most 
experienced arcade player. You try to help Ma Hen save 
the eggs and chickens from the wily fox. The action gets 
faster and faster as eggs turn into chicks, feathers fly, 
chickens squawk, and all bedlam breaks loose. You'll 
really have to think fast to outwit this fox. 
Requires paddles. 
16K Tape, $29.95 



NAUTILUS 




From Synapse by Mike Potter 

Two-player interaction connbat game: the underwater 
cities and their destroyers against the helicopters 
and submarines. The helicopters bomb the ships; 
the subs fire torpedoes at the cities and surface to 
fire at the destroyers. The destroyers fire at the heli- 
copters and drop depth charges on the subs. They 
can also lower men into the ocean to rebuild cities 
hit by torpedoes. Top and bottom halves of screen 
scroll separately for maximum field of play. Great 
graphics. Requires joystick. 

16K Tape or Disk, $29.95 




CENTIPEDE 



From Atari 

Very fast arcade game for the nimble-fingered. The 
green centipede is streaking across the screen, try- 
ing to get from the top to the bottom row. If you're 
fast enough, you can shoot it— but don't hit it in the 
wrons spot. Gain points by killing the spiders and 
mushrooms, too. Requires joystick^^_ ,^ j , 

ROIM Cartridge, %lASiS .yixy^/5fo ! 
Now Thru Oct. 15 You Pay Just $36.51 




FROGGER 



From On Line Systems 

Based on arcade game Frogger. Dodge traffic and jump 
the moving logs in the stream to get home. Fantastic 
graphics. Requires joystick. 

16K Tape or 32K Disk, $34.95 




W; 



TEMPLE 
OF APSHAI 



From Automated Simulations 
The first of the DujonQuest series, and still one of the 
most popular. In exploring over 200 rooms in the magical 
labyrinth, you will encounter more than 30 kinds of 
fearsome monsters guarding over 70 treasures. Some of 
the treasures will help you in your quest, but you must 
still watch out for the many monsters and traps that 
spring out from the walls and shadows. 

32K Tape or Disk, $39.95 
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MxirfightGr 



The Ultimate Joystick 

• 2 Year Warranty 

• More Accurate Oi-tg- r*C 

• Easier to Hold ^10.^5 

LEFTY JOYSTICK ADAPTOR 

Adapts to any Atari Joystick. ^ 
Moves fire button to top Right. *9.95 



• 90 Day Warranty 

• Same as Starfighter 
except made of softer '>£p^ ^r\ e\^ 
materials. ^**^ ^".95 

EXTENSION CABLE (5 ft.) 

Adapts to any Atari controller. 



$6.95 

ALL JOYSTICKS WORK WITH: Atari VCS, Sears Telegame, Commodore VIC-20, Atari 400/800 (All products have registered trademarks) 

30 Day Money Back Guarantee 



CHOPLIFTER 
$22.95 disk 

RASTER BLASTER 
$19.95 disk 



SUPER SPECIALS 

I 

■ K-RAZV SHOOTOUT 
$31.95 cartridge . 



Prices effective onty throuqh November 30, 1982. 



FROGGER 

$24.50 disk/tape 



CANYON CLIMBER 

$19.95 disk/tape 



.^ 



Buy any 3 programs and receive a FREE* SLIK STIK 



ATARI 

CONVERSATIONAL 

U>iNGUAGES T 43 95 

INVFTATION TO 
PROGRAMMING2&3 T . 2195 

MUSIC COMPOSER C 32 95 

MY FIRST ALPHABET D 28 95 

TOUCHTYPING T 18.95 

WORD PROCESSOR D . . . . 112 95 

BOOKKEEPER D 11295 

HOME FILING MANAGER D 37 95 

MAILING LIST T 18 95 

ASTEROIDS C 26 95 

CAVERNS OF MARS D 28 95 

CENTIPEDE C 32 95 

COMPUTER CHESS C 26 95 

MISSILE COMMAND C 26 95 

PAC MAN C 32 95 

SPACEINVADERS C 26 95 

SUPER BREAKOUT C 26 95 

STAR RAIDERS C .... 32 95 

ASSEMBLY EDFTOR C . 44 95 

BASIC C 44 95 

MACROASSEMBLER D 65 95 

MICROSOFT BASIC -D . . 65 95 
PILOT (HOME PACKAGE) C .58 95 



APX 

ALL ITEMS 20. OFF RETAIL 
CARRY THE ENTIRE APX 
CATALOG! 



WE 



DATASOFT 

SHOOTING ARCADE D T . 23 95 
PACIFIC COAST 

HIGHWAY DAT 23 95 

CLOWNS& BALLOONS D T . 23 95 

TUMBLEBUGS D 23 95 

MICROPAINTER D 27 95 

BASIC COMPILER D 74 95 

TEXT WIZARD D 74 95 



ON-UNE 

JAWBREAKER D/T 23,95 

ULTIMA I D/T 3195 

CROSSFIRE DfT 23 95 

ULYSSES & GOLDEN 

FLEECE D 27.95 

SOFTPORN ADVENTURE D .23 95 

THE NEXT STEP D 3195 

MISSION: ASTEROIDS D 20 95 

THE WIZARD & THE 

PRINCESS D 25 95 

THRESHOLD D 3195 

ULTIMA II D 44 95 

MOUSKATTACK D 27.95 

BRODERBUND 

APPLEPANIC DfT 23 95 

STELLAR SHUTTLE DAT 23,95 

DAVID'S MIDNIGHT 

MAGIC D 27 95 

STAR BLAZER D 25 50 

TRACK ATTACK D 23 95 

LABYRINTH D 23 95 

SERPENTINE D 23 95 

DUEUNG DIGITS D 23 95 

DEADLY SECRETS D 27.95 

SYNAPSE 

PROTECTOR D/T 23 96 

SUME D/T 23.95 

CHICKEN DAF 23 95 

SHAMUS DAT 23 95 

FORT APOCALYPSE D/T ... . 23.95 
FILE MANAGER 800+ D ... 79 95 

DISK MANAGER D 23 95 

PAGE6 D 23.95 



ROKLAN 

DELUXE INVADERS D 27 95 

GORF-D/C :. 31:95 

WIZARD OF WOR -D/C 31.95 

D - Disk T - Cassette C - Cartridge 

WE CARRY HUNDREDS OF ITEMS FOR ATARI 400/800, if you don't see it here, please call. 



ANALOG 

RACE IN SPACE D/T 20.95 

CARNIVAL D/T 20.95 

SUNDAY DRIVER D/T 23 95 

CRASH DIVE! D/T 23 95 

ADVENTURE INTERNATION/U_ 

REARGUARD D 20 95 

PREPPIE D/T 23 95 

SAGA. ADVENTURES D ...23 95 

AUTOMATED SIMULATIONS 

TEMPLE OF APSHAIDT... 3195 
UPPER REACHES OF 

APSHAI D,/T 16 95 

CRUSH, CRUMBLE & 

CHOMP D,T 23 95 

RICOCHET DT 16 95 

CRYPT OF THE 

UNDEAD DT 23.95 

I.D.S.l. 

POOL 1.5 D 27 95 

POOL 400 C 3195 

SPEEDWAY BLAST C 3 1 ,95 

GEBELLI 

EMBARGO C 39 95 

FIREBIRD C 39.95 

SIRIUS 

SNAKE BYTE D 23 95 

SPACEEGGS D .... 23 95 

CYCLOD D 23.95 

SNEAKERS D 23.95 

QUALITY 

ALI BABA D 26.50 

THORN 

CALL FOR ITEMS AND PRICES 



* COUPON PROGRAM 

The purchase of each program 
(with the exception of Super 
Specials, Atari and APX) will 
earn you 1 COMPUTABILnY 
DIVIDEND COUPON. Save 3 
coupons and redeem them for 
your choice of Slik Stik, a Lefty 
Adaptor, or an Extension 
Cable. You pay only a $2.50 
shipping and handling charge. 



Mastercard/VISA 
Order Toll Free 



ORDERING INFORMATION 

To order by mail send money 
order, certified check or personal 
check (allow 14 days to clear) to 
COMPUTABILITY. Include $2.00 
shipping on software orders and 
$2.50 shipping on hardware orders 
(FREE OR PURCHASED). 
Mastercard & VISA please include 
card number and expiration date. 
WI residents please add 5% sales 
tax. Outside of continental U.S.A. 
please add 15% shipping (U.S. 
Funds only). 

Prices subject to change without 
notice. 

Order Hours: Computability 
12 pm - 9 pm PO. Box 17882 
C.S.T. Milwaukee, WI 

53209 



800-558-0003 



In Wise. Call 

414/351-2007 



ISSUES 
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COLOR GRAPHICS IN MODE 



24K CASSETTE OR DISK 



by Michael A. Ivins 



In issue #5 we were introduced to the concepts 
and techniques for re-defining the character set and 
using it to create graphics. The re-defined character 
set is a powerful tool which can be used in many 
different ways. These can be used for special 
animation effects. They are especially useful when 
combined with certain types of modified display 
lists. Finally, they can be used to create colorful 
graphic displays in the text mode, GR.O. This last 
application is the subject of this article. 

If you have ever done much playing around with 
GR.8 you know that getting four colors in this mode 
is not as difficult as you might expect. For the 
newcomers I include example program 1 to show 
what I mean. 

10 GRAPHICS 8:SETC010R 2 ,0, 15 :5ETC0L0R 

l,e,e:COLOR 1 
20 FOR K=0 TO 200 STEP 2 
38 PLOT K,8:DRAHT0 H,ie 
40 NEXT X 

50 FOR K=l TO 201 STEP 2 
60 PLOT X,2e;DRAHT0 X,30 
78 NEXT X 
80 FOR H-Q TO 200 
98 PLOT XMOiDROMTO X^SO 
100 NEXT X 

This may seem to have little to do with re-defined 
character sets, but bear with me, I'm coming to it. 
The example should show what appear to be three 
bars on a white background with blue at the top, red 
next and black at the bottom. The program was 
supposed to draw two sets of evenly spaced vertical 
lines and one solid bar, so what happened? You 
would expect the bottom bar to be black. The only 
differences between the top two bars is in the 
positioning of the vertical lines, yet we get the two 
colors. 

This effect is due to a curious property of the 
graphics screen whose technical name is 
"artifacting." Simply stated, the principle is that a 
single pixel of GR.8 (the smallest the ATARI will 
generate) will be one color while another pixel one 
space or any odd number of spaces away will have a 
different color. Put these two dots side by side and 
they will take on the designated foreground color. 
By now you are probably asking, "If this guy wants 
to talk about re-defined character sets, why all this 
stuff about colors in GR.8?" Every character has 
eight bytes associated with it, and the pattern made 
up by those bits which are ones determines the shape 
of the character. Two examples of this are shown in 



FIGURE ONE with one A showing the bit pattern of 
the letter "A" and one B showing a percent sign. 
Each pixel has a GR.O character, whether it be text or 
control graphic, is identical to a single pixel of GR.8. 
By applying the same techniques which gave us 
colors in GR.8 to re-defining characters, we can get 
many kinds of colored graphic characters. 



00000000 
000 II 000 
00111100 
01100110 
01100110 
01111110 
01100110 
00000000 



FIGURE ONE 



B 00000000 
01100110 
01101100 
00011000 
00110000 
01100110 
01000110 
00000000 



There is one important factor which should be 
mentioned at this point. The colors you can get from 
your special characters (or a GR.8 display) will 
depend on the chosen background color and chosen 
luminosity of the foreground. For your own 
applications you should experiment with the 
combinations of foreground and background color 
which gives the effect you want most. For the 
purpose of this article and the game program which 
accompanies it I use a white background 
(SETCOLOR 2,0,15) and a black foreground 
(SETCOLOR 1,0,0). 

I give two examples in figures two and three. For 
greater ease of use I have enlarged the pattern of bits 
so you can see them better than in the previous 
example. I have also labeled the values of the bits and 
given the decimal values that you would poke into 
the character table to make the changes. With the 
specified colors, the character defined in figure two 
will give you a solid blue block while the one in 
Figure three will make a solid red block. 

FIGURE TWO (BLUE BLOCK) 
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FIGURE THREE (RED BLOCK) 

















Decimal 


28 


64 


32 


16 


8 


4 


2 ] 




value 

















] 




85 

















] 




85 

















] 




85 

















] 




85 

















] 




85 

















] 




85 

















: 




85 

















] 




85 


Sim 


pie red an 


dblue 


bloc 


:ks alone male 


e for 


rather 



dull graphics, but I'm sure you can see that by clever 
arranging of the dots you can create many interesting 
shapes. If the shape you want is too large to fit into a 
single 8x8 grid then use two, three or even more 
characters. To give one example of the kinds of 
things that can be done with color graphics 
characters and hopefully have a little fun at the same 
time, I include my program for Color Slot Machine. 

Before getting into a description of the game itself 
there is a comment I would like to make. Calculating 
out all the numbers for special characters you have 
drawn on graph paper is very slow work and it tends 
to be boring. Fortunately this is the sort of task 
which lends itself to being "computerized." There 
are, in fact, many character editor programs on the 
market as well as some which have been published in 
magazines. These all allow you to make changes in an 
enlarged matrix and see the effects of these changes 
on the normal sized character. They let you save the 
special character set or "font" for use with your own 
programs. I used such a program which went as far as 
writing the actual subroutine that does the work in 
the Slot Machine game. If the hint isn't obvious yet, 
why doesn't some enterprising and ingenious 
programmer out there write up a good character 
editor prc:)gram and send it in to help the readers of 
A.N.A.L.O.G.? You would be helping the other 
readers and making money for your trouble. 
THE GAME 

After the title display, the program will draw a 
colorful slot machine on the screen making use of 
several kinds of colored graphics characters. There 
are two ways to play which you choose by pressing 
the OPTION button anytime there is no bet placed. 
For those who might be unfamiliar with slot 
machines I will describe the options. Single line play 
uses only those symbols which line up in the center 
of the pay windows. In this version additional 
"coins" bet give bigger payouts when a winning 
combination comes up. The five line version gives 
more ways to win by adding top, bottom and 
diagonal paylines for the number of coins played. 
Single line play can pay more when it pays but the 
five line version can give more ways to win so you 
win more often. 



Playing the game itself is simple. To enter a single 
coin bet, press the trijjger button of the joystick and 
release. If you wish to bet the maximum bet of five, 
simply hold the trigger button down until the beeps 
stop. In the single line version the paychart changes 
to reflect payout for the size of the bet, while the five 
line version employs line pointers to indicate how 
many lines are in play. When you have made your 
desired bet, move the joystick in any direction to 
spin the reels. More details will be given in the 
program documentation. Happy gambling! D 

PROGRAM DOCUMENTATION 

The first thing the program does is to jump to the 
routine which alters the character set and since that is 
the main thing I wish to illustrate, I will cover this 
first. 

32000 The first step resets RAMTOP. Next a 
graphics command to set the new top of memory. 
Now we poke the location of the new character set. 
32005 This defines a machine language routine 
which will copy the old character set out of ROM 
into the protected area of RAM. 
32010-32015 These lines are here to give you 
something to look at while the character set 
initializes. You won't see anything at this point since 
the area pointed to by CHBAS (location 764) is 
blank. 

32020 This executes the machine language routine 
so that the material printed in the previous lines can 
now be seen on the screen. 

32030-32040 Now we make the actual changes. We 
first read the number that tells where to start and 
then put in the new numbers. Some of the characters 
look a bit funny (like a cluster of cherries with a blue 
leaf or a purple bell) but this is the best I could do 
with these colors. 

Now we return to the main program and from this 
point I will take things in the sequence they are 
shown in the program. 

10-11 Here we dimension variables and asign other 
variables to frequently used subroutines. 
15-25 These set up the reels of 30 "symbols" on 
each. If you wished to change the odds of the game, 
this is the place to do it. You could make it harder to 
win by changing the symbols or by adding no pay 
symbols or blanks. If you wanted to, you could set 
up the reels so that you would win on every play, 
which I could consider to be boring. 
30 Jumps to the routine which draws the machine. 
40-100 Here we set the initial values for game 
counters and display them. This also lets you know 
you are playing the one line version. 
120 This displays the betting prompt. 
125 If the bet is the maximum or the bankrool is zero 
then the betting routine is skipped. 
130 For trigger press increment bet, decrement 
bankroll and start sound. Also gosub to change the 



ISSUE 8 



A.N.A.L.O.G. COMPUTING 



PAGE 69 



paychart. 

135 Jump to the five line version if OPTION is 

pressed and bet is zero. 

145 Erase play prompt if bet reaches maximum. 

150 A delay to slow betting. 

160-168 Display bet, shut off sound, display bet. 

170-175 Return to betting loop if stick not moved or 

if stick moved but bet zero. 

180 Zero out the attract mode. 

290-310 Jumps to the routine that animate the 

handle and spin the reels. 

311-315 Reads the symbols on the pay line and 

jumps to payroutine. 

320-327 Calculates the proper length of windsound 

and jumps to that routine. 

330-340 Resets bet to zero and if any money is left 

you are returned to the betting routine. 

350-420 This is the routine that is activated if you go 

broke. It resets the left margin, erases the paychart 

and then gives you your quit or start over options. 

Starting over redraws the machine and paychart and 

resets all values to beginning levels. Quitting 

naturally ends the game. 

500-590 The functions here are similar to the 

betting loop of the single line version. The main 

difference is in setting line pointers instead of 

changing the paychart. 

600-610 This reads all payable locations. Caution 

should be noted here. Be sure when you type these 

lines in that you use the abbreviation LOC. for 

LOCATE and POS or you won't get everything in on 

those lines. 

620-676 This section checks for winning 

combinations and j umps to the payout routine if one 

is present. I originally tried to make this section more 

brief but kept getting errors. 

680-698 Checks for win and goes to sound routine if 

appropriate. 

700-720 Resets bet, erases line pointers and jumps 

back to betting routine if not bankrupt. 

1000-1055 This creates the siren for winning and is a 

simple tone with rising and falling pitch. 

1300-1360 This is the routine which resets the 

paychart according to the size of the bet in the one 

line play version. 

2000-2090 This is the roudne which actually draws 

the machine. Notation should be made here that the 

paychart is not truly complete. Most combinations 

will pay with a bar (single or double) on the last reel. 

I did not have room to fit this on the screen. 

2300-2390 This animates the handle by first erasing 

the knob and redrawing it lower and doing the 

reverse by drawing a section of the handle and the 

knob one space higher. This routine also clears any 

old wins. 

2400-2495 This is the payout routine for the single 

line version. 

2600-2690 This is the super jackpot routine and is 

triggered if three of the "seven" symbols appear on 

the center line with maximum bet in the one line 



version and on the fifth line with maximum bet in the 
five line version. This has first an explosion sound, a 
slower siren than the regular windsound followed by 
another explosion. Then the words "SUPER 
JACKPOT! ! ! " are flashed. I suggest that you type in 
"GOSUB 2600" from the direct mode as you won't 
be seeing much of this routine unless you change the 
odds. 

2950-3180 This animates the spin of the reels. I had 
originally tried to make the reels turn two full spins 
plus a random bit extra, but this slowed down the 
action of the game too much, doing it from BASIC. 
Therefore we just assume those spins without 
showing them and take a certain number plus a 
random amount. From this point the reels are moved 
visibly by a fixed number of spaces for each reel. 
4000-4080 This is the pay routine for the five line 
version. 



I REM COLOR SLOT MACHINE 
Z REM BY MICHAEL 0. lUIHS 
4 GOSUB 32000 

10 DIM L5t6e],M3ceO) ,R$C60},PaY$r93 :0P 
EN ttZ,12,0,"5:":WINS0UND=1000:FPflY=4e0 
e:5PIH=2950 

II PflYS = " hL--«»2[I]":CH:=97:DB=146:SB-16 


15 LS="abcdcfghMabqhefcdS:qhcclMefi ic 

dghcdghS^efcdcdabghefcdcdefgh" 

20 MS="abB|efgliefabghefcdZ;efcdabefghi 

defHcdi 

30 BANKROLL=iee : BETzOTWIN^O : L=l : H=l : R= 

1 

40 GOSUB 2000: REM DRAM MACHINE 

90 POSITION 20,20:? "l LINE PLAY" 

100 POSITION 20,22:PHIHT "BANKROLL :"; 8 

ANKROLL:POSITIOH 20,23:PRINT "BET:";BE 

T;:P05ITI0N 30,23:PRINT "HIN:";MIN; 

12 8 IF_BET<5 THEN P OSITION 20, 21: PRINT 



1 TO 5 COINS 



125 IF BANKROLL=0 OR BET=5 THEN 145 
130 IF STRIGtO)=0 THEN BET-BET+l : GOSUB 
1300: SOUND 0,50,ie,14:BANKR0LL=BANKRD 
LL-1 

135 IF PEEKC53279)=3 AND BET=0 THEN 50 

145 IF BET=5 THEN POSITION 20,21:? " 

II ■ 

150 FOR DELAYrl TO 5:HEXT DELAY 

160 POSITION 24,23:PRINT BETj 

165 SOUND 0,0,0,0 

168 POSITION 29,22:PRINT BANKROLLj" "', 

178 IF STICK CO) =15 THEN 120 

175 IF BET=0 THEN 128 

188 POKE 77,0 

298 GOSUB 23eO:REN PULL HANDLE 

318 GOSUB SPIN 

311 LOCATE 5,8,LM:POSITI0N 5,8:? CHR$ ( 
LM) 

312 LOCATE 8, 8, MM: POSITION 8,8:? CHRSt 
MM} 

313 LOCATE 11, 8, RM: POSITION 11,8:? CHR 
$tRM] 

315 GOSUB 2400 

320 IF WIN>0 AND MIN<BET»ie THEN DUR=2 

: GOSUB MINSOUND 

325 IF MIN>=BET»10 AND HIN<BET»25 THEN 
DUR=3: GOSUB UINSOUND 

326 IF MIN>=BET«25 AND HIN<=BET»50 THE 
N DUR=5: GOSUB UINSOUND 

327 IF HIN>BET*50 AND MIN<20ee THEN DU 
R=10: GOSUB MINSOUND 

330 BET=0:POSITION 24,23:PHINT BETj" " 

340 IF BANKROLL>0 THEN 120 
350 POKE 82,20 

368 FOR 1=0 TO 23:P0SITI0N 20,1:? " 
": :NEKT I 
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378 POSITION 20,8:? "I'M 50RRY":? "YOU 
HrtUE GONE BROKE":? "IF VOU HI5H TO BU 

Y MORE":? "CH ftHGE P RESS gflMl" 

380 ? "PRESS MalK^l IF YOU":? "WISH TO 
QUIT" 

398 IF PEEKC53279) <>6 AND PEEKC53279X 

>5 THEM 398 

488 IF PEEKC53279J=6 THEN POKE 82,2:G0 

TO 11 

428 POSITION 28,18:? "THANK VOU":? "FO 

R PLAYING, BETTER":? "LUCK NEKT TIME": 

END 

500 POSITION 28,28:? "5 LINE PLAY"; 

518 BET=l:GOSUB 1388:BET-8 

528 POSITION 28,22:? "BANKROLL :";BANKR 

OLL; :POSTTIOH 20,23:? "BET : "; BET; : POSI 

TION 38,23:? "WIN:"; WIN; 

^ ^ ^- _J-f _^-g^T < 5 THEN P OSITION 28,21:PRINT 



PLAY 1 TO S COINS 



532 FOR DELAY=1 TO 5:MEXT DELAY 

535 IF BANKR0LL=8 OR BETr5 THEN 568 

548 IF STRIGt83=e THEN BET=BET4l : BANKR 

OLL=BANKROLL-l:SOUND 0,58,18,14 

545 IF PEEK 1532793=3 AND BET = THEN 98 

558 IF BET=1 THEN POSITION 4,8:PRIWT " 

■"; 

552 IF BET=2 THEN POSITION 4,e:PRINT " 

."; 

554 IF BET=3 THEN POSITION 4,18:PRIHT 

"."; 

556 IF BET=4 THEN POSITION 4,4:PRINT " 
558 IF BET=5 THEN POSITION 4,12:PRINT 

11 II > 

568'POSITIOH 29,22 :PRIHT BANKROLL;" "; 
:P05ITI0N 24,23:PRIHT BET; 
562 IF BET=5 THEN POSITION 20,21:PRINT 

■ I II 

565 FOR DELAVn TO 20:NEXT DELAY 

566 SOUND 8,0,0,0 

578 IF STICKC0)=15 THEN 538 

575 IF BET=e THEN 538 

588 GOSUB 2388 

590 GOSUB SPIN 

608 LOCATE 5, 8, LM: POSITION 5,8:? CHRS t 

Lm:LOCATE 8,8,MM:P0SITI0N 8,8:? CHRS I 

MM):LOCATE 11, 8, RM: POSITION 11,8:? CHR 

SCRM3 

685 LOCATE 5,6, LT : POSITION 5,6:? CHRS ( 

LT3:L0CATE 8, 6, MT : POSITION 8,6:? CHRS ( 

MT):LOCATE 11,6,RT :POSITION 11,6:? CHR 

StRTJ 

610 LOCATE 5,18,LB:P0SITI0N 5,18:? CHR 

StLBl:LOCATE 8, 18, HB : POSITION 8,18:? C 

HRSCMB) : LOCATE 11 , 10, RB : POSITION 11,10 

:? CHRS(RB) 

620 IF CLM=CH AND MMOCH) OR CLM=CH AN 
D MM=LMJ THEN F=LM: S=MM: T=RM: GOSUB FPA 
V 

621 IF LM=DB AND MM=SB AND {RM=DB OR R 
M=5B3 THEN FzLM:S=MM: T=RM:G05UB FPAY 

622 IF LM=MM AND RM=MM THEN F=LM:S=MM: 
T=RH:GOSUB FPAY 

623 IF LH=DB AND tHH=DB OR I1M=SB) AND 
HH=:SB THEN F=LM: S=MM: T=RN: GOSUB FPAY 

624 IF LMOCH and LMODB AND LMOSB AN 
D LM0185 THEM IF LM=MM AND CHM=DB OR 
RM3SB3 THEN 629 

625 IF LMrSB AND I1H=DB AND (RM=DB OR R 
MrSBJ THEN F=:LM:Sr:MM: T = RM: GOSUB FPAY 

626 IF LM=SB AND (MM=DB OR MM=SB3 AND 
RM=DB THEN F=LM:S=MM: T=RM: GOSUB FPAY 

628 GOTO 638 

629 F=LM:S=MM:T=RM:G8SUB FPAY 
638 IF BET=1 THEN 688 

631 IF LT=DB AND MT=SB AND CRT=DB OR R 
T=SB3 THEN F=LT : 5=MT ! T=RT : GOSUB FPAY 

632 IF CLT=CH AND MTOCH) OH fLT=CH AN 
D MTrCHJ THEN F=LT : 5=MT : T=HT : GOSUB FPA 

633 IF LT=DB AND tMT=SB OR MT=DB) AND 
RT=SB THEN F=LT : S=MT : T=RT : GOSUB FPAY 

634 IF LT=MT AND RT=MT THEN F=LT:S=MT: 
T=HT:GOSUB FPAY 

635 IF LT=SB AND MT=DB AND CRT=DB OR R 
1=583 THEN F=LT : 5=MT : T=RT : GOSUB FPAY 

636 IF LTOCH AND LT0185 AND LTODB A 



ND LTOSB THEN IF LT=MT AND (RT=DB OR 
RT=SB3 THEN 646 

637 IF LT=SB AND CNT=5B OR HT=DB3 AND 
RT=DB THEN F=LT :S=MT : T=RT :GOSUB FPAY 

638 GOTO 642 

648 F=LT:S=HT:T=RT:GOSUB FPAY 

642 IF BET=2 THEM 688 

643 IF LB=DB AND MB=SB AND CRB=DB OR R 
B=5B3 THEN F=LB :S=:MB : T = RB : GOSUB FPAY 

644 IF (LB=CH AND MBOCH) OR tLB=CH AN 
D MB=CH3 THEM 652 

645 IF LB=DB AND (MB=DB OR MB=SB) AND 
RB=SB THEM F=LB : S=MB : T=RB : GOSUB FPAY 

646 IF LB=MB AND RB=MB THEN 652 

647 IF LB=SB AND HB=DB AND CRB=DB OR R 
B=SB) THEN F=LB:S=MB:T=RB: GOSUB FPAY 

648 IF LBOCH and LB0185 AND LBODB A 
ND LBOSB THEN IF LB=MB AND {RB=DB OR 
RB^SBJ THEM 652 

649 IF LB=SB AND tMB=DB OR MB=SB} AND 
RB=DB THEM F=LB : S=MB : T=RB : GOSUB FPAY 

650 GOTO 654 

652 F=LB:S=MB:T=RB: GOSUB FPAY 

654 IF BET=3 THEN 688 

655 IF LT=DB AND MM=SB AND (RB=DB OR R 
B=SB) THEN F=LT:S=MM:T=RB:60SUB FPAY 

656 IF CLINCH AND MM=CH3 OR CLT=CH AND 
MMOCH) THEN 664 

657 IF LT=DB AND fMM=DB OR MM=SBJ AMD 
RB=SB THEN F=LT : S=MM: T=RB : GOSUB FPAY 

658 IF LT=MM AND RBrNM THEM 664 

659 IF LT=SB AND MM=DB AND CRB=DB OR R 
B=SB3 THEN F=LT : 5=MM: T=RB : GOSUB FPAY 
668 IF LTOCH AND LT0185 AND LTODB A 
ND LTOSB THEM IF LT=MM AMD (RB=DB OR 
RB=SB} THEM 664 

661 IF LT = SB AMD CMM=DB OR I1M=SB3 AND 
RB=DB THEN F=LT : Si:MM: T=RB : GOSUB FPAY 

662 GOTO 665 

664 F=LT:S=MM:T=RB: GOSUB FPAY 

665 IF BET=4 THEM 688 

666 IF LB=185 AND MH=LB AND RT=MM THEN 
MIN=MIN42888:G0SUB 2608 

667 IF LB=DB AND MM=SB AND fRT=DB OR R 
T=SB3 THEM F=LB : S=MM: T=RT : GOSUB FPAY 

668 IF CLB=CH AND HMOCH) OR tLB^CH AN 
D MM=CH3 THEN 676 

669 IF LB=DB AND CMN=DB OR MM=SB) AND 
RT=5B THEN F=LB : S=MM: T=RT : GOSUB FPAY 
678 IF LB0185 AND LB=HM AND RT = MM THE 
M 676 

671 IF LB=SB AND MH=DB AND CRT=DB OR R 
T=5B3 THEM F=LB : S=MM: T=RT : GOSUB FPAY 

672 IF LBOCH and LBO105 AND LBODB A 
ND LBOSB THEN IF LB=MM AMD tRT=DB OR 
RT=SB3 THEM 676 

673 IF LB=SB AND CNM=DB OR MM=5B3 AMD 
RT=DB THEN F=LB : S=MM: T=RT :GOSUB FPAY 

674 GOTO 680 

676 F=LB:S=MH:T=RT:GOSUB FPAY 
688 BANKROLL=BANKROLL+MIN:POSITION 29, 
22:? BANKROLL; 

685 IF WIM>e AND UIN<18 THEN DUR=2:G8S 
UB MINSOUND 

698 IF WIH>=10 AND WIN<25 THEN DUR=3:G 
OSUB HINSOUND 

691 IF WIN>=25 AND WIN<=5e THEN DUR=5: 
GOSUB MINSOUND 

695 IF WIN>50 AND MIN<2880 THEN DUR=ie 
: GOSUB HINSOUND 

788 POSITION 4,4:? "J"; : POSITION 4,6:'' 
"J"; : POSITION 4,10:? "-«";: POSITION 4, 
12:? "h"; 

785 BET=0:POSITI0N 24,21:PRINT BET; 
718 IF BANKROLL>0 THEN 538 
728 GOTO 358 
1808 REH WINNER SOUND 
1810 FOR 1=1 TO DUR 
1815 FOR S=48 TO 90 STEP 5 
1820 SOUND 8, S, 10, 10 
1825 NEXT S 

1830 FOR S=98 TO 40 STEP -5 
1835 SOUND 8,5,10,10 
1040 NEXT 5 
1858 NEXT I 

1855 SOUND 0,0,8,e:RETURN 
1388 P5=2 
1310 FOR 1=1 TO 8 
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1328 POSITION 34, P5:? ASC tPaY$(I,I})«B 
^j > •■ 11. 

1325 P5=P5+2 

1330 NEXT I 

1340 IF BET<5 THEN POSITION 34,18:? ftS 

CfPAYSt9,9J)«BETj" ";:RETURN 

1350 IF BET=5 THEN POSITION 34,18:? ftS 

CCPftYS(9,9J3»ie; 

1360 RETURN 

2880 POKE 752,1:? CHR5 (125> : POSITION 2 

,2:PHINT "hHHVhhHhhhU.hh ab P 

AYS 2" 

2885 POKE 756,PEEKCie6)+l:SETC0L0R 1,8 

,e:5ETC0L0R 2,8.15 

2010 PRINT ■■fUUtttj.tl.l.tP' 

2812 PRINT ■■|.HJJJJJJ"'"'J VJ- ab ab 

PAYS 5" 
2814 PRINT "KM J J ■> hh 
2816 PRINT "HJ J ■* J H- cd cd cd 

PAYS 18" 
2820 PRINT "hH J ■■ ■' ^^ 



H-i 



'^y 






J hi- I 

nh I 



"ttl-hh'l-hhl-hKl-tt I 
" HI33333S33SS ■ 

hi:""""iH r 

:: li|i?rFronj, r 



ef ef ef 



gh gh gh 



MIK BARS 



1 J iJ » J 




2825 PRINT 

PAYS 14" 
2830 PRINT 
2835 PRINT 

PAYS 18" 
2840 PRINT 

2845 PRINT 
PAYS 20" 

2846 PRINT 
2848 PRINT 

PAYS 28" 
2850 PRINT 
2855 PRINT 

PAYS 58' 
2868 PRINT 
2065 PRINT 

PAYS 288" 
2866 PRINT 

2868 PRINT 

2869 PRINT 
2878 PRINT 
2880 PRINT 
2898 RETURN 

2100 POKE 752,1: FOR 1=19 TO 23 
2118 POSITION 20,1 
2120 PRINT " 
2130 NEXT I 
2140 RETURN 
2208 FOR 1=1 TO 5 
2210 P OSITION 28, 16: PRINT "1^ 

2220 FOR DELAY=1 TO 
2238 POSITION 28,16! 

COINS" ' 
2240 FOR DELAY=1 TO 
2250 NEXT I 
2260 RETURN 

2300 POKE 752,l:P05ITI0N 17,7 
2310 FOR 1=1 TO 5 
2320 PRINT " *+it^"; 
2325 FOR DELAY=1 TO 
2330 NEXT I 
2340 FOR 1=1 TO 5 
2350 PRINT "|t*i*"; 
2355 FOR DELAY=1 TO 
2360 NEXT I 
2370 WIN=0: POSITION 
2390 RETURN 

AND MMOCH then WIN=BET* 



18: NEXT DELAY 
;PRINT "PLAY 1 

18: NEXT DELAY 



20:NEXT DELAY 



TO 5 



20: NEXT 
34,23:? 



DELAY 
WIN;" 



2488 IF LM=CH 

2 

2410 IF LM=CH AND 

2420 IF LM=99 AND 

WIN=BET«18 
2425 IF LH=99 AND 



MM=CH THEN WIN=BET«5 
MM=LM AND RM=HM THEN 



MM=99 AND CRM=DB OR 
RH=SB} THEN WIN=MIH»10 
2430 IF LM=iei AND MM=LM AND RM=MM THE 
N MIN=BET»14 _,, „^ ^ 

2435 IF LM=101 AND MM=101 AND {RM=DB 
R RM=5BJ THEN MIN=BET»14 
2440 IF LM=103 AND MM=LM AND RH=MM THE 

u UT'|i*~ R|^T4(1 ft 

2445 IF LM=103 AND MM=103 AND CRH=DB 
R RM=SBJ THEN MIH=BET»18 

2450 IF LM=DB AND MM=LM AND RM=MM THEN 
H1N=BET«58 



2452 IF LM=SB AND MM=LM AND RM=MM THEN 
HIN=BET*20 

2453 IF LM=DB AND MH=SN AND CRM=DB OR 
RM=SB) THEN HIN=BET*20 

2454 IF LM=DB AND CHM=DB OR MM=SBJ AND 
RM=SB THEN UIN=BET«20 

2455 IF LK=SB AND MM=DB AND CRM=DB OR 
RI<I=5B3 THEN MIN=BET*20 

2456 IF LM=SB AND CMM=DB OR MM=SB3 AND 
RM=DB THEN MIN=BET*20 

2460 IF LM=185 AND MM=LM AND RM=HM AND 

BET<5 THEN WIN=BET«208 
2470 IF LM=185 AND MM=LM AND RM=MM AND 

BET=5 THEN MIN=BET«2B0O : GOSUB 2680 
2480 POSITION 34,23:PRINT WINj" "; :BAN 
KROLL=BANKROLL+HIN 

2490 POSITION 29,22:PRINT BANKROLL;" " 
;:IF BANKROLL>lO0ee0 THEN 2708 
2495 RETURN 

2608 FOR 1=0 TO 280 STEP 5 
2685 SOUND 8,1,8,15 
2618 NEXT I 
2615 FOR 1=1 TO 5 
2620 FOR 5=48 TO 98 STEP 2 
2625 SOUND 8, S, 10, 10 
2630 NEXT S 

2640 FOR S=98 TO 40 STEP -2 
2645 SOUND 0,5,10,10 
2650 NEXT 5: NEXT I 
2655 FOR 1=1 TO 28 
2660 FOR 1=0 TO 208 STEP 5 
2665 SOUND 8,1,0,15 
2670 NEXT I:S0UND 0,0,0,8 

2672 FOR 1=1 TO IB 

2673 FOR DELAY=1 TO 4e: NEXT DELAY 

2674 POSITION 20,20:? " HmiiillMPMaMJillll 

2675 FOR DELAY=1 TO 20: NEXT DELAY 

2676 FOR DELAY=1 TO 2e:NEXT DELAY 
2678 POSITION 20,20:? " 

2680 NEXT I 

2685 POSITION 28,28:PRINT " 

II > 

2690 RETURN 

2800 FOR 1=1 TO 280 STEP 25 
2810 SOUND 0,1,6,8 
2820 NEXT I 

2830 SOUND 0, O, 8, 8 :RETURN 
2950 L=L+INTCRNDC83»63»2:IF L>59 THEN 
L=L-60 

2960 M=M+16+INTfRHD<03«6H*2:IF M>59 TH 
EN M=M-60 

2970 R=R+22+INT(RHD<03«6}»2:IF R>59 TH 
EH H=R-60 

3880 POKE 77,0:F0R X=l TO 15 
3010 POSITION 11,10:PR1NT RSCR,R+13:R= 
R+2:IF R>59 THEN R=l 

3820 POSITION 11,8:PRINT R$ f R, R+IJ : R=R 
+2:IF R>59 THEN R=l 

3030 POSITION H,6:PRINT RSfR,RHJ 
3840 R=R-2:IF R<1 THEN R=R+60 
3845 IF X=ll THEN GOSUB 2880 
3050 IF X>ie THEN 3110 

3868 POSITION 8, 18: PRINT M$ CM, M+IJ : M=M 
+2: IF M>59 THEN M=l 

3870 POSITION 8,8:PRIHT MS tH, M+IJ :H=M+ 
2: IF M>59 THEN M=l 

3888 POSITION 8, 6: PRINT M$CM,M+1I 
3180 M=M-2:IF M<1 THEN M=M+60 
3105 IF X=B THEN GOSUB 2800 
3110 IF X>5 THEN 3160 

3120 POSITION 5,18:PRINT LS tL, L+1) : L=L 
+2:IF L>59 THEN L=l 

3130 POSITION 5,8:PRINT LS f L, L+IJ : L=L4 
2:IF L>59 THEN L=l 

3140 POSITION 5,6:PRINT LStL,L+lJ 
3150 L=L-2:IF L<1 THEN L=L+60 
3160 NEXT X 
3165 GOSUB 2860 

3170 L=L-2:IF L<1 THEM L=L+60 : M=M-2 :IF 
M<1 THEN M=N+60:R=R-2:IF R<1 THEN R=R 
+60 

3180 RETURN 

4880 IF CHRSfF>="a" AND CHR$CS)<>"a" T 
HEN M=2 
4810 IF F=CH AND S=CH THEN M=5 
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de2B IF F=99 AND S=99 AND T=99 THEM M= 

10 

4025 IF F=99 AND 5=99 AMD CT=DB OR T=D 

B) THEN H=:18 

4030 IF F=101 AND 5=101 AND T=101 THEN 

H=14 
4835 IF F=101 AND 5=181 AND tT=DB OR T 
=5B) THEN M=14 
4840 IF F=183 AND 5=183 AND T=183 THEN 

H=18 
4845 IF F=183 AND 5=183 AND CT=DB OR T 
=5B} THEN H=18 
4850 IF F=DB AND 5=F AND T=5 THEN W=28 

4852 IF F=DB AND 5=5B AND (T=DB OR T=5 
B) THEN H=28 

4853 IF F=DB AND t5=DB OR 5=58} AND T= 
5B THEN H=2e 

4854 IF F=5B AND 5=DB AND tT=DB OR T=5 
B) THEN H=20 

4855 IF F=5B AND C5=DB OR 5=5B> AND T= 
DB THEN H=2e 

4058 IF F=5B AND 5=F AND T=5 THEN M=20 

4068 IF F=105 AND 5=F AND T=5 THEN M=2 

00 

4065 HIN=HIN4H:P05ITI0N 34, 23: PRINT NI 

Nj 

4880 RETURN 

leeoe v=8:for i=e to 200 5tep 25 

10885 50UND 0,1,0,15 

18006 50UND 1, I, 2, 15 : 50UND 2,1,4,15 

10010 NEXT I 

10015 50UND e,e,0,0:50UND 1,0,0,0:50UN 

D 2,0,0,8 

10090 5T0P 

20008 FOR 1=1 TO 5 

28005 FOR 5=8 TO 200 5TEP 5 

28018 50UND 0,5,8,15 

20015 NEXT 5 

20020 FOR 5=200 TO 5TEP -5 

20025 50UND 0,5^8,15 

20838 NEXT 5 

20035 NEXT I 

20048 50UND 0,0,0,8 

20845 5T0P 

32808 POKE 106, PEEK fl06) -5 :GRAPHIC5 2: 

5TART=tPEEKC106J +13*256: POKE 756,5TART 

/'256:P0KE 752.1 

32805 DIM XFR5(38J :KFRS ="hgfng tngTrra i 

32010 ? U6;" »lHHHHHHHHHt«>' 

32811 ? tt6;" » [ginriig «■■ 

32012 ? tt6;" » slot «'■ 

32813 7 m;" « CEHBiB *" 

32014 ? tt6;" KiemcMMMKumcK " 

32015 ? "BV MICHAEL A. IVIN5" 

32028 Z=U5RCADRCXFR$}] :RE5T0RE 32100 

32038 READ X : IF X=-l THEN RE5T0RE :RET 

URN 

32040 FOR Y=0 TO 7: READ Z:POKE X+V+5TA 

RT,Z:NEXT Y:GOTO 32038 

32100 DATA 520,170,170,170,170,170,170 
,170,170 

32101 DATA 528,170,85,170,85,170,85,17 
8,85 

32102 DATA 536,170,0,170,0,170,0,170,0 

32103 DATA 544,160,160,160,160,10,10,1 
8,18 

32184 DATA 552,88,88,88,88,5,5,5,5 

32105 DATA 560,128,128,160,160,168,168 
,170,170 

32106 DATA 568,2,2,10,10,42,42,170,170 

32107 DATA 584,234,184,46,139,46,186,2 
24,178 

32188 DATA 600,167,28,114,200,114,156, 
39,170 

32109 DATA 608,170,0,170,255,255,170,0 

32110 DATA 616,1,171,7,175,31,191,127, 

32111 DATA 624,255,127,191,159,175,167 
, 171, 169 

32112 DATA 776,2,82,82,81,1,81,80,80 

32113 DATA 784,170,168,128,64,64,64,8, 

32114 DATA 792,1,5,5,21,21,5,5,1 

32115 DATA 800,64,80,80,84,84,80,80,64 

32116 DATA 808,2,10,10,42,42,10,10,2 



32117 DATA 816,128,160,160,168,168,160 
,160,128 

32118 DATA 824,1,2,1,2,5,18,21,3 

32119 DATA 832,8,128,64,128,64,168,80, 
128 

32120 DATA 840,85,85,64,0,1,5,4,20 

32121 DATA 848,85,84,4,16,80,64,0,0 

32122 DATA -1 



D: CHECK DATA 

1 DATA 536,499,899,760,612,466,578,105 

,546,19,143,396,55,17,548,6279 

130 DATA 158,933,697,360,244,341,374,3 

35,797,598,134,35,354,376,338,6074 

315 DATA 806,170,901,19,506,56,364,786 

,155,407,340,655,516,575,667,6923 

510 DATA 586,851,653,224,552,940,534,1 

28,130,457,454,285,808,353,21^7,7552 

566 DATA 133,434,622,825,96,930,995,30 

6,27,725,148,803,578,361,100,7083 

628 DATA 526,175,819,735,163,883,351,7 

28,546,945,734,190,788,198,859,8640 

645 DATA 654,857,646,390,959,524,111,8 

31,595,872,811,137,315,541,742,8985 

662 DATA 823,403,644,995,720,954,105,6 

29,628,365,825,752,166,201,797,9007 

690 DATA 936,245,94,807,780,492,798,93 

0,744,423,644,806,257,413,518,8887 

1050 DATA 489,246,280,173,873,577,496, 

408,611,794,925,732,697,14,187,7502 

2016 DATA 768,436,815,167,822,168,181, 

736,991,278,542,614,501,363,807,8181 

2069 DATA 57,157,977,656,616,747,945,4 

92,788,170,331,373,983,375,580,8248 

2260 DATA 962,985,342,237,621,791,351, 

237 , 627 , 800 , 668 , 969 , 932 , 865 , 610 , 9997 

2425 DATA 472,248,664,267,687,646,409, 

229,633,520,947,009,263,418,411,7623 

2495 DATA 812,237,360,505,170,97,432,5 

37,289,566,774,193,156,571,234,5933 

2672 DATA 441,409,971,401,637,318,812, 

27,972,291,320,580,483,399,695,7756 

2970 DATA 731,427,351,170,607,832,535, 

^^SA^iSt^'^' ^29, 757, 313, 576, 320, 7451 

3130 DATA 126,99,504,542,960,708,794,5 

66,829,983,465,46,231,399,305,7557 

4850 DATA 847,411,497,417,488,886,62,8 

69,655,951,446,245,662,595,647,8678 

^SSS^^ES"^** 481,208,531,689,297,486,578 

,938,250,640,237,816,778,290,315,7^34 

^ISJ^^. ^ft^B^^^^' 782, 846 , 875, 528, 960, 853 

,606,110,666,650,918,17,702,619,9715 

H^V,^'*^'^ 597,529,954,959,491,625,205 

,753,127,634,597,658,955,621,8705 





^Orii 



CURES THE #1 
TERMINAL ILLNESS 




y^ ■■■! ^r<»^ H ll^— * H _ . _ . 

S. D.S. 

(SLOW DELIVERY SYNDROME) 

QUICKSOFTS cure doesn't come in a bottle, but it does FREE DELIVERY: QUICKSOFT offers free delivery on a// 

come in handy when your computer needs software delivered orders of $50.00 or more. We not only ship within 24 hours but 

promptly. we also pay the freight! (For orders of less than $50 add $1.50 

for shipping and handling.) 

24 HOUR SHIPPING: QUICKSOFT is the software-house 

with a difference; SPEED!! When you place a phone order with CALL TOLL FREE ANYTIME. OUICKSOFT'S toll free 

QUICKSOFT we guarantee that It will be shipped within number is available anytime of the day or night. For placing an 

twenty-four hours.* order or for requesting our FREE CATALOG simply dial: 

WIDE SELECTION: QUICKSOFT carries thousands of 

software disks, tapes and cartridges for every purpose. We m A^^ C il 7 O^^O 

have business systems to cure those overflowing files, T ■rjlJIJ"?^*! f "OUmj 

educational disks to relieve the worry of a D in chemistry, and ■ %#^*%^ *^^ ■ **^#^^W 

adventure games to aid a case of the blues |l^ OREGON CALL 1-342-1298 

QUICKSOFT HAS THEM ALL, and right now we're having 

specials on these items from our "most wanted" list: 'GUARANTEE: QUICKSOFT guarantees shipment within 

2195 24 hours on each phone order. If the item ordered is not 

SHAMUb oi'qi: readily available and cannot be shipped on time, you will 

SPACE EGGS ^I.ab receive an additional 5% OFF the regular QUICKSOFT price. 

CHICKEN 21.95 

TRACK ATTACK 21.95 VISAMASTERCHARGE and C.O.D. Welcome 

SPEED READ + 47.95 -^ s ss ^^ ^ H ^^^ H^^H 

ZORK I or II 32.95 g ^ ^=S W^M^^ ^Ba^HH 

TEXT WIZARD 79.95 '"^^k^M W S S^ ^. M M. M ^^ml^ 

CURSE OF RA 16.95 ^=^s^ -^^s ^s^ -^^^ ^^F^ ■ ^B 

MOSAIC 32K RAM 139.95 Department 97, P.O. Box 10854 Eugene, OR 97440 

DISK DETECTIVE 21.95 KiCopyrighl 1982 Microcomputer Support Group, INC. 

OFFER EXPIRES NOVEMBER 30, 1982. 
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A BANNER BANNER PROGRAM 



16K CASSETTE OR DISK 



by Andrew Lieberman 



C'mon now, another program to print banners? 
Yes! But this one prints all 256 ASCII characters, is 
only 19 lines long, and doesn't have a single DATA 
statement. Also, the letters can be of different 
heights and widths, and your large message is made 
of a small one printed over and over. 

When the program is run, you are first asked to 
input a large message. This is the message that will be 
printed in large letters. Next you must enter a small 
message. This is printed repeatedly to form the large 
letters. It can be a message or a single character. 
When running the program on a monitor, an inverse 
space looks good for the short message. You must 
now tell the computer the height and width of each 
character. The maximum height on your screen is 4 
and on an eighty-column printer, 9. A width of one- 
half to three-fourths the height gives the best looking 
characters, but play around with it. The computer 
now waits for you to turn on the printer and position 
the paper. Hit any key and the screen goes blank. The 
banner starts printing and when finished, the screen 
comes back to life. You are now asked if you want to 
run the program again. 

If you want the banner to fly along the screen 
instead of the printer you must make two small 
changes. First delete the 'TOKE 559,0" from line 
50. Second, change the "LPRINT" in line 80 to 
"PRINT". You may want to save this version 
separately. 

Lines 1 to 45 are preparatory. Line 15 sets SP$ 
equal to all spaces for use in the program. The 
maximum lengths of L$ and S$ are set to 128, but 
can be increased by changing the DIM statement. 

Line 50 first turns off the ANTIC chip by POKing 
location 559 with a 0. This causes the screen to go 
blank, but greatly increases execution speed. Next, a 
loop is started to print each character of the large 
message. A variable, X, is set equal to the ASCII 
value of the letter and is checked to see if it is an 
inverse character. If it is an inverse letter, the value is 
lowered by 128, making it the normal version, and a 
flag, IN, is set equal to 1. 

Line 55 changes X from the ASCII value of the 
desired letter to the internal character set value of the 
letter. 

Before I explain line 60, let me give you some 
information on the ATARI'S character set. Each 
character is stored in ROM as eight numbers per 
character. When these numbers are converted from 
decimal to binary they show which pixels should be 



lighted. Take as an example the letter "A". Its eight 
numbers are 0,24,60,102,102,126,102,0. When 
changed to binary it looks like: 





1 24 
3 60 

3 102 

4 102 

5 126 01111110 

6 102 01100110 



1 

2631 






84268421 






00000000 






00011000 


16+8 


=24 


00111100 


32+16+8+4 


=60 


01100110 


64+32+8+4 


= 102 


01100110 


64+32+8+4 


= 102 



64+32+16+8+4+2= 
64+32+8+4 =102 



=126 



The positions with is are lighted giving an "A". 

Line 60 places the eight numbers of the character 
to be printed into matrix X. Also, if the character is 
inverse it reverses the numbers, so the opposite 
places are filled in. The "J=256" is for a loop 
explained below. 

Line 70 first divides J in half. It then starts a loop 
which checks each member of matrix X in a 
backwards order. If that number is less than J, spaces 
are left in PR$ and the count of PR$, CO, is 
advanced. 

If the computer did not skip from Une 70 to line 
80 then a printed section should be put into PR$. 
This is done by advancing the count of S$, C, and 
loading it into PR$. 

Line 80 prints PR$ a number of times equal to the 
width. It then sets the count of PR$ to 1 and sets 
PR$ equal to all spaces. 

Line 85 checks for the end of loop J. 

Line 90 turns the ANTIC chip back on and checks 
to see if you want to run the program again. 

So, there you have it. I hope you could under- 
stand all the little tricks I used, but whether or not 
you do, have fun with this program. D 

1 ? "IS A BANNER BANNER PROGRAH" 

2 ? ■■ BY ANDREH LIEBERMAN":? 
IB DIM 55C128J,LSC128),5PStl603,PHSti6 
e),KC7) :C=e:CO=l:OPEN til, 4, 9, "K:" 

15 FOR A = l TO 16e:SP$(A,A}=: NEXT A 

20 ? :? "LARGE ME55AGE"; : INPUT LS:LL=L 
ENCLSl 

38 ? "SMALL MESSAGE"; : INPUT SS:LS=LENC 
5S3 

40 TRAP 40:? "HEIGHT"; :INPUT H:IF H<1 
OR H>20 THEN 40 

42 TRAP 42:? "WIDTH"; : INPUT M:IF W<1 
R H>2e THEN 42 

45 ? "POSITION PAPER — HIT ANY KEY": GET 
ttl,A 
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50 POKE 559,e:F0R I::! TO LL : IM=0 : X=fiSC 
tLSCI,I31:IF K>127 THEM H=K-128:1H=1 
55 K=X-32«CX<96 ftHD X>31J +64*CX<32J 
69 FOR ft=0 TO 7:KCftJ=flB5mj»255-PEEK(5 
7344+X»8+fl) ) : NEXT A : J=256 

79 JzJ/2:F0R K=7 TO 9 STEP -1:IF X CK3 < 
J THEM PRSCC0,C0+H-1J=SPS:C0=C0+H:G0T0 

88 
75 KtK)=X<K)-J:FOR fi-1 TO H:C=C+l-L5*t 
C>=L5J :PRStC0,C0J=5SCC,C3 : C0=C0+1 : MEXT 

A 

80 NEXT K:FOR A=l TO MzTRAP 99:LPRIMT 
PRSCljH«8J :NEXT fl :C0=1 :PRS=5PS 

85 IF JOI THEN 70 

90 MEXT I: POKE 559,34:? :? :? "AGftIM?" 

;:GET »l,fl:IF 0=89 THEM C=9:C0=1:G0T0 

20 

92 END 

99 POKE 559,34:? :? "YOUR PRINTER IS N 

OT OM^ TRY AGftIM":C=l:CO=l:GOTO 45 



D: CHECK DATA 

1 OATA 648,325,961,426,578,399,545,856 

,498,353,293,834,934,935,889,9466 

85 DATA 197,924,24,559,1695 



^g^ATAR|.2*3m 

Christmas Music !^ 



N; 



Compare! 1. Glorious Four Part Harmony 

2. Accurate Song Reproduction 

3. Requires Only Basic Cartridge 

Volume I: Silent Night, Angels From Realms of Glory, 
We Ttiree Kings, Go Tell It On The Mountain, 
Joy To The World, O' Come, O' Come Immanuel, 
Good Christian Men Rejoice, Bring A Torch, Coventry 
Carol, It Came Upon A Midnight Clear. 
Volume II: The First Noei, What Child Is This, Hark 
The Herald Angels Sing, There's A Song In The Air, 
C Little Town Of Bethlehem, Angels We Have Heard, 
Avi/ay In A Manger, While Shepherds Watched, 
O Come All Ye Faithful, God Rest Ye Merry Gentle- 
men. 

Volume III: Jingle Bells, All Through The Night, 
Please Put A Penny, We Wish You A Merry Christmas, 
O' Sanctissima, Wassailing Song, Decl< The Halls, 
O Christmas Tree, Good King Wenceslas, I Saw 
Three Ships. 



Specify: 



Prices: 



Version 1 (8/24K Tape ■ 16/32K Disl<) 
Version 2 (32K Tape - 40K Disk) 



Any Single 
Volume 



Any Two 
Volumes 



All Three 
Volumes 



Tape - $12.95 $21.95 $29.95 

Disk ■ 14.95 25.95 34.95 

Add $2.00 per volume ordered for lyrics. 

B.I.G. Software 

533 Airport Blvd. #518 
Burlingame, Ca. 94010 
(415) 347-1063 
ATARI is a registered trademark of Atari, Inc. 
' California residents add 6'/2% saies tax. 
Dealer inquiries invited. 



Inrroducing the 

BAYLIS BIG STICK 




• Arcade rough 

• Left or right hand models ovoiioble 

• 7"x8"x3" 

• $59.95 suggested retoil 

The BAYLIS DIG STICK for Atari® and Vic-20® 
computers by R. Allen Doylis. 

Available at Computer Store Int'l. Glendole, 
CA ond other fine dealers. 



Released rhroughi ""^ Torrey Engberg Smirh Co. 
RO. Box 1075, Glendole, CA 91209 (213) 247-6484. 
Dealer ond distributor inquiries welcome. 




FIRST BORN IN 1978! 



the original & continuously updated 



CCA 
Data Management 

System 



A 



NowAvailableForAtariComputers $ 99.50 

For Apple Computers 150.00 

ForCPM Based Computers 225.00 

CCA Data Management System 
Uses Features And Capabilities 



Business 

Accounts Receivable 
Accounts Payable 
Inventories 
Billing 

Lists and Rosters 
Home Phone Lists 
Budgets, Hobbies 



• Long record lengths 

• Up to 24 fields per record 

• Not Copy Guarded 

• Alpha numeric items 

• Numeric only items 

• Add, update, scan, etc. files 

• 10-Level sort ascending, descending, 
allows alphabetizing data file. 

• Contact your local dealer for 
details or write us for our catalog 




DIVISION OF CUSTOM ELECTRONICS, INC, 

SaFT\A/ARE 

238 Exchange St., Chrcopee. Massachusetti 01013 

U13) 592-4761 

Mastercard & VISA Accepted 

• Dealer And Distributor Inqulriej Invited 

Closed Mondays —Open Doily 'Til 5r30 — fridayi 'TJt 8 



Jf 



Plus Royalttes! 



For the best 
Talking Game 



Using the VOICE BOX 




For the 
Atari® 



Speech Synthesizer 




Now you can make , 

your Atari® 400/800 J 

games and other pro- i ' 



VOICE BOXtm by the Alien Group 
—the first low-cost, smart speech syn- 
thesizer with unlimited vocabulary. 

.Add jokes to your programs. Insults. 
Compliments. Help messages. Stories. 
Alien voices. Animal roars. Have your com- 
puter talk to the fire department or police in 
emergencies. To kids. Or blind people. Teach 
touch typing with immediate spoken feed- 
back. Or just about any other subject — the fun 
way. Or help a speech-impaired friend com- 
municate . . . the possibilities are limitless. 

The VOICE BOX plugs into your Atari's serial 
port. And talks directly through your TV set. No 
speaker, amplifier, power supply, special 
interfaces, or cables needed. 

Just select from its simple screen menu. A 
dictionary with thousands of common words 
(on diskette or cassette) automatically 
translates your text into speech. It's that easy. 

But don't let its friendliness fool you. The 
VOICE BOXhas all 64 phonemes (basic sounds, 
like "ah" ) built in. So you can precisely create 
any word or sound you can imagine. And 
store it all on diskette or tape. Names or 
foreign language words, for example. Or 
wierd non-human languages. 




The VOICE BOX is creative 
- ^ too. It win crack you and your 

'^ friends up with non-stop random, 

grammatically correct sentences, 
using words you specify. It also has an 
amusing talking face with Up-sync ani- 
mation — a real crowd-stopper. Best of 
all, you can call the VOICE BOX from any 
BASIC program and make your program 
really hum — literally! 

Don't confuse the VOICE BOX with "dumb" 
speech synthesizers that can't ledm new words. 
Or software-based ones with lower speech 
quality — and an annoying tendency to blank 
out the display when they talk. The VOICE BOX 
is a true breakthrough in speech s-ynthesis. 
Small wonder thousands of Atari owners hove 
already bought the VOICE BOX. 

The VOICE BOX is available now at leading 
computer stores throughout the world. Or 
direct from the Alien Group, with 10-day 
money back guarantee if you're not com- 
pletely satisfied. 

VOICE BOX For Atari. $ 1 69.00 :^^ 
1 6K and 32K versions Included 
(Specify diskette or cassette). 

Enclose check or money order. Visa or 
Mastercard #. Please include expiration date. 



CHECK YOUR LOCAL COMPUTER STORE FOR TALKING "VOICE BOX" VERSIONS OF YOUR FAVORITE 
GAMES FROM LEADING GAME COMPANIES 

•Win a $5,000 prize — plus royalties — for the best Atari 400/800 game using the VOICE BOX. Deadline' 
May 30, 1983. Write for contest details. 

Please mail to: The Alien Group, Department AL-2 , 27 W. 23 St., N.Y., NY 10010 

Or call in order to (212) 741-1770 



Alan Is a registered trademark of Atari Inc. VOICE BOX is trademark ol the Alien Group, 
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ON CONVERTING MICROSOFT BASIC 



by Richard J. Kalagher 



The purpose of this article is to point out some 
pitfalls that await the programmer who has learned to 
program with ATARI BASIC and wants to switch to 
atari's new Microsoft BASIC. I do not intend to 
"review" ATARI Microsoft BASIC or catalog all the 
differences between the two versions of BASIC. 
Instead I will try to help you avoid some errors that 
can occur without you even knowing it. 

Let's start with a simple example. The statement 
PRINT (Vi)*2 should give an answer of 1. Not in 
ATARI Microsoft BASIC, however. You will get 0. 
To understand why this happens you have to read 
between the lines in the ATARI Microsoft BASIC 
manual. ATARI Microsoft BASIC allows three types 
of numbers: integer, single precision, and double 
precision. When you assign numbers to a variable, 
they will be stored according to how you defined the 
variable. In the example above, however, the ATARI 
Microsoft BASIC interpreter saw two constants 
inside of the parenthesis. Since these constants did 
not contain decimal points, the interpreter assumed 
they were integers. Thus (Vz) evaluates to in 
ATARI Microsoft BASIC because division of two 
integers gives only the integer result and not the 
remainder. 

To avoid errors in your programs you must be 
very careful to either assign the constants to single or 
double precision variables or to put a decimal point 
in at least one of the numbers. For example, PRINT 
(l./2)*2 will give you the correct answer. It is 
unfortunate that the ATARI Microsoft BASIC 
manual does not warn you of such problems, even in 
the section on converting from ATARI BASIC to 
ATARI Microsoft BASIC. 

There are more problems with numbers in ATARI 
Microsoft BASIC, however. For example, consider 
the following simple program: 
10 K=e 

20 FOR M-1 TO 19000 
30 K=H+0,1 
40 NEXT N 
58 PRINT K 

You would expect (and you would get in ATARI 
BASIC) a result of 1000. However ATARI 
Microsoft BASIC gives you a result of 1000.28! The 
culprit here is the way ATARI Microsoft BASIC 
stores numbers. In good old ATARI BASIC all 
numbers are stored in Binary Coded Decimal (BCD) 
format. This means that each decimal digit is 
represented exactly in binary format. In ATARI 
Microsoft BASIC, however, the numbers are stored 



directly in binary. Since many decimal numbers can 
not be exactly represented in binary, you will get 
errors in the conversion process. 

The reason that ATARI Microsoft BASIC uses 
binary representation is to conserve memory and to 
execute faster. Personally, I would rather have 
slightly slower execution and use slightly more 
memory in order to get the accuracy I am used to 
with ATARI BASIC. To be fair, even the IBM 
Personal Computer as well as the Apple and the 
TRS-80 represent nunibers in binary format and 
have the same potential accuracy problems. 

This problem is much more annoying when using 
double precision numbers in ATARI Microsoft 
BASIC. The computer seems to want to give you 
sixteen digits even when you manipulate numbers 
with one or two digits. In most cases the extra digits 
are just a nuisance which you can easily avoid using 
the PRINT USING command. By the way, if I sound 
negative toward ATARI Microsoft BASIC let me tell 
you that PRINT USING alone makes ATARI 
Microsoft BASIC a wonderful language to work 
with. It's just too bad ATARI did not allow a BCD 
option with the language. 

For most financial problems, by the way, you will 
probably need to use double precision. Since single 
precision is only useful to six digits, any number 
greater than 9999.99 will drop the least significant 
digits causing errors. Since double precision 
numbers require eight bytes for storage while 
ATARI BASIC'S BCD nine digit numbers only 
require six bytes, you may find that ATARI 
Microsoft BASIC is not necessarily more efficient 
for all problems. 

There are several other difficulties that you may 
encounter when switching to ATARI Microsoft 
BASIC. For example, there is no DEG statement in 
ATARI Microsoft BASIC. Thus you must enter 
angles in radians or convert to radians in your 
program. The ATARI Microsoft BASIC manual 
could have told you that 1 degree = .01745 radians 
but you are just greeted with a blank in Appendix J 
on converdng from ATARI 8K BASIC to ATARI 
Microsoft BASIC. 

At first glance, the change from the "POINT #iocb 
sector,byte" to "INPUT ffioch AT(sector,byte)" 
seems like a better way to do it. But I have at least one 
program that I wanted to convert to ATARI 
Microsoft BASIC that was not easy without the 
POINT command. In this program I had a disk file 
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containing my checkbook account. In order to avoid 
reading the whole file each time I wanted to find 
something, I used NOTE to mark the beginning of 
each month. By storing just 12 pairs of numbers I 
could use POINT to jump to the beginning of any 
month. Since I was using POINTjust to move the file 
pointer followed by a loop to read the file, I could no 
longer just move the pointer without also reading a 
record. Although you can do it with INPUT AT the 
code is very awkward. 

Most reviewers of ATARI Microsoft BASIC hail 
the string array feature. I will mention only one case 
where the old ATARI BASIC strings have an 
advantage. It is sometimes convenient to print to the 
screen by dimensioning a string of 38 characters and 
selectively inserting information into the string. 
Something like A$(10,13)="DATE" can be used to 
do this. With ATARI Microsoft BASIC it is very 
awkward to do this. You must take the string apart 
with LEFT$, RIGHT$, and MID$ and then put it 
back together again. 

ATARI Microsoft BASIC is really a superior 
version of BASIC. It could have been a lot better if 
ATARI had incorporated some of the nice features 
of the old 8K BASIC into ATARI Microsoft BASIC. 
But particularly in the area of potential problems 
with integer division and binary storage, ATARI has 
done a diservice to their customers in not even 
mentioning these factors in the ATARI Microsoft 
BASIC manual. D 





THE 

"^^ ~BIG MATH 
ATTACK™ 

Challenging new math program . . . 

Sharpen your skills by entering the correct answer 

before the equation lands on your city! Provides 

hours of educational entertainment ~^ PQU/' 

Features: 

• Full color 

• High resolution graphics 

• Animation 

• Sound 

• Four math functions (+, -. X, ^) 

• Two levels for each function 

Recommended for grades 1 -6. Available for the ATARI & APPLE II. 

ATARI 16K (cass.) S20.00 

ATARI 24K (disk) $25.00 

Requires ATARI BASIC cartridge 

APPLE II (disk) DOS 3.2/3.3 S23.00 

Requires Applesoft Basic in ROM. 

Ask for it at your local computer store. 





^.H.E.S.I.S. 



P.O. Box 147 
Garden City. Ml 48135 
(313) 595-4722 



Please add: 

51.50 shipping/handling 

SI. 50 CO,D. 
WRITE FOR FREE CATALOG 
DEALER IMQGIRIES WELCOME 




N£l¥/ ^IRSTRIKE for the atari 400/800 i6k 



• INTRODUCING THE NEW ARCADE-STYLE GAME FOR ATARI COMPUTERS i 

• SUPERB Fir\IE SCROLLING GRAPHICS AND DAZZLING ARRAY OF COLOUR 

• FIGHT YOUR WAY THROUGH CAVERNS AND TUNNELS WITH ATTACKING ' 
MISSILES. FUEL AND AMMO DUMPS TO CONTEND WITH I 

• 100% MACHINE CODE PROGRAM FOR ONE OR TWO PLAYERS 

• MULTIPLE SKILL LEVELS. 

AVAILABLE NOW DIRECT ON 16K CASSETTE ; S34.95 plus S5 AIRMAIL POSTAGE 
SEND YOUR VISA/MASTERCARD NUMBER TODAY ! 



ATARI IS A T.M. OF ATARI INC. 



ENGLISH SOFTWARE COMPANY 

DEPT.A. 50 NEWTON STREET 
PICCADILLY, MANCHESTER Ml 2EA 
ENGLAND, U.K. Tel: 06T236 7259 
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Bunjeons and BragonsUharacter (5cnerator 



24K CASSETTE 32K DISK 



by Bob Curtin 



When 1 first bought my ATARI, one of the 
things I put high on my hst of priorities was to 
try one of the computer adventure games 
on the market. I wasn't impressed with 
the game, but I was impressed with the 
ease of play. Pressing a few buttons 
took care of movement, combat, 
encumbrance, game time, and all 
the rest, and it dawned on me that 
my computer could be a big help 
to me in my ongoing DUN- 
GEONS & DRAGONS cam- 
paign. I set to work writing a 
series of utility programs for it. 
This, the first, generates both 
player and non-player charac- 
ters in an average of about four 
minutes. Normally, it takes 
anywhere from twenty to forty 
minutes to generate a charac- 
ter "by hand," and then there's 
a strong possibility of missing 
a few modifiers along the way. 
The computer always remem- 
bers. 

Though the program was 
written to take the work out 
of generating characters, the 
Dungeon Master and players 
are still left with choices to 
make. As in D&D, the player 
still has choice of name, gen- 
der, race, class, and character 
level. Those categories greatly 
affect the final character statis- 
tics, and it would be an injustice 
to randomly choose them for 
the player. By the same token, 
there are certain minimum abi- 
lity scores, or racial requirements, 
which must be met to assume the 
role of a particular race or class. 
The user doesn't have to know or 
worry about it; the computer will 
figure it all out and tell the player if 
he or she doesn't measure up. The play- 
er may continue to choose alternatives 
until one of his choices meets all require- 
ments. The program will then continue on. 

DaNGEOMS & DRAGONS ® 1982 TSR Hobbies, 




The system used is straight, unmodified, 
ADVANCED DUNGEONS & DRAGONS. 
There is an omission, however — by choice, 
not error. I didn't incorporate the maxi- 
mum level restrictions imposed on 
certain races, such as an Elf being 
able to rise no higher than 7th level 
as a fighter. If a Dungeon Master 
wants to adhere to those limits, 
it's a simple matter to just look it 
up; while it's not so simple to get 
the computer to do what it's 
told not to. For those of you 
who want to ignore the limits, 
the computer doesn't know 
any better. Indulge. 

I fudged a couple of other 
values, too. For instance, line 
195 contains the random 
number generator for the 
characters' basic abilities. No- 
tice that variables A and C 
have a +2 for the add-on 
number. I did this to give the 
players a break. All you hard- 
line Dungeon Masters out 
there gnashing your teeth can 
switch back to +1 if you want. 
(Essentially, they're now roll- 
ing 3D6+2). 

THE PROGRAM 
As I said, there are five in- 
puts. They are, in order: name, 
gender, race, class, and char- 
acter level. Here is an explana- 
tion of each. 
Name — after the title, the 
computer will ask for a character 
name. This is the only "open" in- 
put, and — although you have to 
work at it — it can be screwed up. 
For example, entering a couple of 
the current controls through the es- 
cape key will cause some grief later 
on down the line. Other than that, 
anything but an input of YES, NO, Y, or 
N will be taken as the character name. If 
you don't want a name, just hit the return 
key. Entering NO or N will fetch a list of 

Inc. All Rights Reserved. 
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names from memory as suggestions to the player. 

GENDER — The computer will only accept M or 
F. Lower case letters will not work. 

RACE and CLASS — Only the exact initials 
listed in parentheses on the respective menus will be 
accepted. 

CHARACTER LEVEL — Any level between 1 
and 18 (inclusive) will be accepted. If a value below 1 
is entered, the value will be upped to 1 . If a value over 
18 is entered, a short message will be displayed and 
the program will loop back for another input. Any 
illegal entry, such as a letter instead of a number, will 
also cause the loop back for re-entry. 

As the character builds, the computer does the 
appropriate calculations, comparisons, and modifi- 
cations between inputs and then displays the results. 
After the information has been copied from the 
screen, the player may continue the program by 
pressing any key. 

PROGRAM OUTLINE 

5-26 Initialization 

50-75 Character Race Modifier Routine 
80 - 82 Custom Display List 
88 - 86 Title (So, my vanity's showing.) This 
can be deleted by eliminating lines 80 
through 96 and changing the last state- 
ment in line 26 to GOTO 100. 

100 - 111 Thief, Magic-user, and Monk Data 

159 - 179 Name Input 

180 - 187 Gender Input 

190 - 192 Race Menu 

195 Basic Ability Scores 

200 - 225 Race Input 

226 - 229 Ability Score Display 

235 - 243 Class Menu and Class Input 

245 - 254 Class Trigger and Gold Piece Generator 

263 - 269 Exceptional Strength Routine 

276 - 332 Hit, Damage, Armor Class, and Dexter- 
ity Modifiers 

335 - 341 Modifier Display 

345 - 374 Height and Weight Routine (modified 
by race and gender) 

375 - 438 Hit Point Generation Routine (modi- 
fied by race and ability) 

460 - 475 Thieves Abilities 

500 - 530 Magic-user Abilities 

550 - 599 Monk Abilities 
2000-2020 Name List 

2550-2730 Race Limitations 

5000-5975 Class Limitations 

6132-6200 Thief Abilities Modifiers (by race and 
ability scores) 

7000-7055 Psionics Routine 
8000-8020 Input Error Routine 

A FEW SUGGESTIONS FOR THE DM 

Never lose sight of the fact that the only reason a 
player will participate in one of your D&lD sessions 
is to have FUN! Nothing will dampen the enthu- 



siasm of a new player faster than being forced to 
assume the role of a character too weak to take any 
kind of initiative, do any exploring, or even stand 
fast with the rest of the party. Force your players into 
a position of constant impotence and you'll soon 
find your dungeon devoid of adventurers. 

Although I'm certainly not in favor of the give- 
away dungeon, killer dungeons are, if not worse, at 
least as bad. Surviving and advancing up the ladder 
of experience — developing a character is what 
D&D is all about. To have a developed character 
snuffed out by the undetectable, unseeable, or un- 
knowable is bound to cause you to gain a reputation 
as a "cheap shot" dungeon master. Having a charac- 
ter killed because of one's own recklessness or bad 
luck or bad choice between alternatives can be 
lived with. But the skewering of some hapless player 
for no rhyme or reason is unforgivable. 

Give your players a break. Pick a number — 1 use 
five — and let each player run off that many charac- 
ters. The player can then choose one of them to start 
the game with, and should that character come to an 
untimely end, there are four more from which to 
choose. That way, no more valuable playing time is 
taken up generating characters. 

Normally, novice players start at level one. How- 
ever, after a player has campaigned for some time, it's 
usually the practice to let him or her start higher than 
that. If they have a character killed off, you could, for 
instance, have them start a couple of levels lower 
than the character who was killed. Another way is to 
roll a six or eight-sided die. 

Above all, be fair. Remember that you, and con- 
sequently all of the creatures you control, have per- 
fect intelligence. Your players do not; they only 
know what you tell them. It behooves you to give 
that little extra. If a player can't see something, don't 
wait for him to ask; tell him. 

Good luck. Good dungeoning. D 

5 TRAP 8088 

*l^ kl^^SlV.!.^^^ "2' ' CMS (20> , CHS f 10> 

12 &IH Hft$C22J,HOS(223,BStl03,Y5C19),T 

),M(33J ,MKtl7,*3,HSC34)^DSfl03 
15 Z$=" DOES NOT HAUE EMOUGH" :STSr"'STR 
EMGTH" : INS="IMTELLIGENCE'-ThiS = "MI5D0M" 
;gXS="DEXTERITV:CNSi:"C0N5TITUTI0N" 
18 CHS="CHflRI5Hfl":BS-" TO BF A":ES="EL 
UES CANNOT BE ■' : DWSr"DWARUE5 CANNOT BE 
"■:GNS="GN0ME5 CANNOT BE " 

?2. ^iEf i"55i;C;^'-"^5 CANNOT BE ":HAS="HA 
LFLINGS CANNOT BE " :H0S="HALF-0RC5 CAN 
NOT BE "rVSz" NO. ATTACKS" 

25 K1=1:K2=K1+K1:K3=K1+K2:K4=K1+K3:K5= 
K1+K4 : K6=K3+K3 : K7=K4 + K3 : K8::K2 + K6 : K9 = K1 
+K8 : K18ZK9+K1 ; Kll=25 : K12=58 : K13=18B 

26 K14=75 : K15=125 : K16=:150 : K17=2e0 : K241 
=241:K8=K1-K1:G0T0 88 

58 FOR ErKl TO K6 : J (EJ =F (E3 : NEXT E:0=8 
:IF RS="H" THEN V^Kl : 0=K5 IRETURN 

f 1..?'' .'55i"^" ^"E** V = K2:0 = K5:JCK4J-JCK4 

3+Kl:JCK53=JtK5J-Kl:HETURN 

^^..V "*="»'" THEN Y=K3:0=K5:JCK5J=JtK5 

3 +K1 : J IKBJ = J (K6 J -Kl : RETURN 

58 IF RS=«'G" THEN Y=K4 :0=K5 : RETURN 
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68 IF RS::"HE" THEH V=K5 : 0=K5 : GOTO 75 

62 IF RS::"HA" THEN y=K6 : 0=K5 : J CK1>= J (K 

13 -Kl: JlK43=JCK4)+Kl:RETURII 

64 IF RS="H0" THEH Y=K7:0=K5: JtKl)=JCK 

IJ+Kl: JCK5J=JtK5)+Kl: JCK6}=JCK6J-K2;RE 

TURN 

75 RETURN 

80 POKE 712,128:? "R" : DL=PEEK 1560) +256 
*PEEKC5613 :P0KE 752,K1:P0KE 55^, KO 

81 Z1=PEEK(0L+K4} : Z2=PEEK (DL+K5J :POKE 
DL+K3,71:P0KE DL+K4, Zl : POKE DL+K5,Z2:P 
OKE DL+K6,K7:P0KE DL+K7,K6 

82 POKE DL+K8,K6:P0KE DL+K9, K6 : POKE DL 
+K10,K6:P0KE DL+K11+K2,65:P0KE DL+K114 
K3,PEEKC5605 :POKE Dl +29, PEEK C561) 

88 POKE 82,0:P0KE 559,34:P0KE 710,128: 
? "5 DUNGEONS « DRAGONS":? " RANDOM C 
HflRnCTEH":? " GENERftTION PROGRAM" 

92 ? " BV BOB CURTIM" 

93 ? :? :? " THIS PROGRftH HAS WRITTE 
N TO TAKE":? " SOME OF THE BURDEN 
OFF OF THE" 

94 ? ■' USUALLY HARRIED DUNGEON MAST 
ER " 

95? :? " PLEASE BE SURE TO PRESS Q 
l^lin;i:i ":? •■ AFTER EACH INPU 

■f " ■ -9 

96 ^ :? :? " GOOD LUCK! GOOD DUNG 
EOHING!":FOR E=K1 TO K18'^3«5 : NEHT E 
188 FOR I=K1 TO K8:F0R K=K1 TO K18+K8: 
READ N:TCK,I3=N:NEKT K:NEKT I 

181 FOR I=K1 TO K3:F0R K=K9 TO K10+K9 : 
READ N:MUCK,I}=N:NEKT K:NEHT I 

182 FOR I=K1 TO K4:F0R X=K1 TO K18+K7: 
READ n:mkck,i)=n:nekt K:NEKT I 

183 DATA 38,35,40,45,50,55,68,65,78,89 
,98,108,185,118,115,125,125,125,25,29, 
33,37,42,47,52,57,62,67,72,77,82,87 

184 DATA 92,97,99,99,28,25,38,35,48,45 
,58,55,68,65,78,75,88,85,98,95,99,99,1 
5,21,27,33,40,47,55,62,78,78,86,94,99 

185 DATA 99,99,99,99,99,10,15,20,25,31 
, 37 , 43 , 49 , 56 , 63 , 78 , 77 , 85 , 93 , 99 , 99 , 99 , 9 
9,18,18,15,15,20,20,25,25,38,38,35,35 
106 DATA 48,48,58,58,55,55,85,86,87,88 
,90,92,94,96,98,99,99.1,99.2,99.3,99,4 
,99.5,99.6,99.7,99.8,8,8,0,28,25,38 

187 DATA 35,40,45,58,55,60,65,70,75,80 
,88,88,35,45,45,45,55,55,65,65,75,85,9 
5,4,5,5,5,6,6,7,7,8,9,18,6,7,7,7,9,9 

188 DATA 11,11,14,18,99 

189 DATA 18,9,8,7,7,6,5,4,3,3,2,1,0,-1 
,-1,-2,-3,158,160,178,180,198,288,218, 
220,230,248,258,260,278,288,298,388 
118 DATA 328,1,1,1,54,54,32,32,32,2,2, 
52,52,52,3,3,4,4,13,14,16,16,27,28,39, 
212,312,313,413,416,517,528,624 

111 DATA 538,832 

159 POKE 82,2:GRAPHICS llPOKE 752,1:P0 
KE 712,128:P0KE 710,128 

168 RESTORE :? tl6:? 116:? 116;" DUNGEONS 
ic DRAGONS":? tt6; "CHARACTER GENERATION 

II 

178 ? "HAUE YOU THOUGHT OF A NAME":? " 
FOR YOUR CHARACTER"; :INPUT NS 

175 IF NS="YES" OR HS="Y" THEH ? "HMEL 
L, WHAT IS IT";:IHPUT NS 

179 IF HS="HO" OR NS="N" THEH GRAPHICS 
8:P0KE 718,6:P0KE 7e9,e:P0KE 752,1:G0 

SUB 2888 

188 ? "HMHAT GENDER IS ";NS;" tM/FJ";: 

INPUT G$:0=8:IF G$="M" OR G5="F" THEN 

0=K5 

187 IF 0OK5 THEN ? "HM/F ONLY, PLEASE 

!":F0R E=K1 TO 1580:NEKT E:GOTO 188 

198 ? 116:? we:? »6;" HUMAN fHJ" 

:■> »6;" ELF CEJ":? »6;" DMA 

RF CDJ" 

192 ? «6;" GNOME CG) " : ? tl6;" 

HALFLING CHA)":? tt6;" HALF-ELF CHE 

)":? «6;" HALF-ORC CHOJ" 

195 FOR E=K1 TO K6 : A=INT CK6»RHD CK13 *K2 

) :B=INTCK6*RNDCK1J+1J : C=IHT CK6«RHDCK13 

+K2J :D=A+B+C:FIE)=D:NEKT E:60T0 285 

288 POP :? 

285 ? "WHAT RACE";:INPUT RS:G0SUB K12 

210 IF 0OK5 THEN ? "MNITIALS ONLY, P 



LEASE !":GOTO 285 

215 GOSUB 2558 

228 FOR E=K1 TO K6:IF JCEJ>K9+K9 THEH 

JCE>=K9+K9 

224 IF JCEXK3 THEN JCEJ=K3 

225 FfEJ=JtEJ rNEKT E 

226 GRAPHICS K1:P0KE 712,5e:P0KE 718,5 
8:? tt6:? tt6:? 1*6 

227 ? 116:? t»6:? tt6:? He;" STRENGTH 
";FCK11 :? tt6;" INTELLIGENCE ";FCK 

2):?tt6;" WISDOM ";FCK3J 

228 ? 1*6;" DEXTERITY ";FCK4J:? 1*6 
;" CONSTITUTION ";F (K53 :? 1*6;" CHAR 
ISMA "jFtK6) :? 1*6:? «6 

229 ? tt6;" BASIC ABILITIES":POKE 752, 
1:? " PRESS ANY KEY TO CONTINUE" 
238 OPEN ttl,4,e,"K:":GET ttl,E:CLOSE »1 
:IF E>8 THEN 235 

235 GRAPHICS 1:P0KE 7e9,96:P0KE 718,16 
8:P0KE 712,98:P0KE 752,1 

236 ? It6:? tt 6;? tt6 

237 ? » 6J" l*<H!M^d ffgl"!? tt6;" 



2Z9 ? tt6;' 



ssns 




He;' 



I":? 1*6 :" 
i? 1*6;^ 

u maihiiai ttii-^? we:? »«6!? i»6;" ch 

OOSE FROM":? 1*6;" THE ABOVE LIST" 

248 GOTO 243 

241 POP :? 

243 Z=K8:0=K8:ES=K8:? "WHAT CLASS"; :IH 

PUT PS 

245 IF PS="F" THEM 0=K5:Z=K1:GP=IMTC15 
8«RND(l]+58) 

246 IF PS="H" THEN 0=K5 :Z=K2 :GP=IMT CKl 
e*RNDCKl]+58) 

247 IF PS="P" THEN 0=K5 :Z=K3 :6P=INT CKl 
6*RND(l)+58} 

248 IF PS="C" then 0=K5 : Z=K4 :GP=INTCK1 
6«flND(l)+38) 

249 IF PS="D" THEN 0=K5 : Z=K5:GP=INTCK1 
6«RND(l}+38} 

258 IF PS="T" THEH 0=K5 :Z=K6 : GP=INT«K1 
3«RNDCl]+28) 

251 IF PS="A" THEH 0=K5 : Z=K7 ! GP=INT tKl 
3«RNDtl]+28} 

252 IF PS="MU" THEN 0=K5 : Z=K8 :GP=INT (6 
8»RNDfl)+28] 

253 IF PS="I" then 0=K5 : Z=K9:GP=INT C68 
*RNDtlJ+28) 

254 IF PS::"M" THEN 0=K5 : Z=K18 : GP=INT CI 
5*RH»C1J+5J 

255 IF 0OK5 THEN ? "CORRECT INITIALS 
ONLY, PLEASE!":? :GOTO 243 

262 GOSUB 5088 

263 IF PS="F" OR PS="R" OR PS="P" THEN 
IF FCK1}=K18+K8 THEN 265 

264 GOTO 276 

265 GRAPHICS 2+16: POKE 711,4:? tlK6:? tt 
K6:? **K6:? *tK6;" ";NS;" HAS ":? **K6;" 
EXCEPTIONAL":? **K6;" STRENGTH" 

269 ? lt6:ES=INTCK13«RNDCKl]+Kl} :? Jt5;" 
E.S. RATING 18/";ES:F0R E=K1 TO 2888: 
NEXT E 

276 MH=0 : MD=8 : »W=8 : MR=8 ! K32S=325 : K335= 
335 

318 IF ES=K13 THEN MH=K3:MD=K6 :GOTO K3 
25 

311 IF ES>=K13-K9 THEN MH=:K2 :MD=K5:G0T 
K325 

312 IF ES>=3«K11+K1 THEN MH=K2 :MD=K4 :G 
OTO K325 

313 IF E5>=K12+K1 THEN MH=K2 : M0=K3 :GOT 
K325 

314 IF ES>=K1 THEN MH=K1 :MD=K3:G0T0 K3 
25 

315 IF A=K9+K9 THEN HH=K1 :lfl>=K2 :GOTO K 
325 

316 IF A=K10+K7 THEN HH=:K1 :M>=K1 ZGOTO 
K325 

317 IF A=Kie+K6 THEN HD=K1:G0T0 K325 

318 IF A=K3 THEN MH=-K3 : MD=-K2 : GOTO K3 
25 

319 IF A=K4 THEN MH=-K2 :MD=-K2:C0T0 K3 
25 

328 IF A<=K6 THEN MH=-K1:G0T0 K325 
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325 IF D=K9+K3 THEN HR=K3 : MA=:-K4 : GOTO 
K335 

326 IF D=K94K8 THEN rffi=K2 :MA=-K3 : GOTO 
K335 

327 IF D=K8+K8 THEN »fiR::Kl :HA=-K2:G0T0 
K335 

328 IF I>=K7+K8 THEN MA=-K1:G0T0 K335 

329 IF D=K6 THEN I<U=K1:G0T0 K335 

330 IF D=K5 THEN m=-Kl :IM=K2:G0T0 K33 
5 

331 IF D=K4 THEN MR=-K2 :iM=K3 :GOTO K33 
5 

332 IF D=K3 THEN MR=-K3 :HA=K4 :GOTO K33 
5 

335 GRAPHICS 1:P0KE 712,128:P0KE 788,2 
2:P0KE 799,22:P0KE 752,1:P0KE 718,128 

336 ? tt6:? ne;" ";NS;'"S" 

337 ? «6;" MODIFIERS:":? tt6 

338 ? tt6;" HIT 'S'MH 

339 ? tt6i" DAHAGE "jND 
348 ? tt6;" A/C ADJUSTMENT ";MA 
341 ? tt&j" R/A BONUS "jNR 

345 X C5) =INT C7«RND (1) ) : X <e) =INT f 9«RND ( 
1}} :XC7}=INTC11«RNDC1)} :X C8}=INT C13«RN 
D (1) ) : K C9) =INT C25«RND CI) ) 

346 XC6]=INTC9«RNDC1}} 

358 MC5)=INTC4e»RNDC13) : M(6) =INT CSOMRN 
DCll) :H(7}=INT(20»RNDC1)3 : MC8) =INT C5e« 
RND f 1] ) : M t?) =:INT CGeKRND (1) ) 

355 IF GS="F" THEN 365 

356 IF Y=K3 THEN H=K2»K11-K6*X CK7) :M=K 
134K11*K9+«(K5) 

357 IF Y=K2 THEN H=K12+K6+X CK7J : H=K13- 
Kie+HCKe] 

358 IF Y=K4 THEN H=K12-K18-K1+X f K5J :M= 
K3»Kll-K3+MfK7) 

359 IF Y=K5 THEN H=K12«Kie+X CK8) :M=lie 
+MCK53 

368 IF V=K7 THEN H=K12*Kie*K2+X CK6) :ll= 

K16+HCK8) 

1**mWS¥=K6 then H=Kll+K10+Kl*XfK6) :H= 

362 IF Y=K1 THEN H=:K124K10HtX tK9) :M=K13 
tKll+K5+HfK9J 

363 GOTO 372 

365 IF Y=K3 THEN H=42+X {K6) :H=K14+K4+M 
(K6} 

366 IF YzK2 THEN H=K12*X CK73 : W=K13-K5+ 
MtK7J 

367 IF Y=K4 THEN H=K6«K6+XCK5) : H=K6NK1 
8+K7+MfK7) 

368 IF V=K5 THEN H=K12*K6HhX tK8) :U=K8«K 
104NCK6) 

369 IF Y=K7 THEN H=K124K94X tK5) :H=K14+ 
K5+MCK8J 

378 IF Y=6 THEN H::38+X (5) : M=42+Mf 7) 

371 IF Y=:K1 THEN H=K12+K6+X CK4] : H=K144 
MCK9) 

372 01=INT tH/123 : Q2=Q1*H2 : Q3=H-«2 

373 ? tt6;? tte:? n6}" HEIGHT ";Q1;""' 
;Q3;CHR$(343 

374 ? «6j" MEIGHT "iMj-LBS." 

375 HPT=K8:0=Ke:G0T0 488 

380 HP=INTCK4#RNDCK13HI^K23 : RETURN 
385 HP=INTtK6«RNDtKl)+K23 : RETURN 
390 HP=INTCK8«RND(K13+K23 : RETURN 
395 HP=INT(K10«RNDfK13 4K23 : RETURN 
480 ? "MHAT LEVEL 15 '•jNS;:INPUT L:IF 
Z=K2 THEN L=L+K1 

406 IF L>18 THEN ? "ISYOU CAN'T START A 
CHARACTER";? "OVER LEVEL 18. TRY AGA 

IN.":? :GOTO 480 

407 IF L<=8 THEN L=l 

488 FOR J=K1 TO L:IF Z=K1 OR Z=K3 THEN 

GOSUB 395 
418 IF Z=K2 OR Z=K4 OR Z=K5 THEN GOSUB 

390 
415 IF Z=K6 OR Z=K7 THEN GOSUB 385 
420 IF Z=K8 OR Z=K9 OR Z=K18 THEN G05U 
B 388 
422 HPT=HPT+HP:NEXT J:GOTO 431 

427 IF E-K9+K9 THEN HPT=HPT+ CL»K43 :GOT 
438 

428 IF E3K9+K8 THEN HPT=HPT+ tL»K33 : GOT 
438 

429 IF E=K8HhK8 THEN HPT=HPT+ CL»K23 :GOT 
438 

438 GOTO 432 



431 IF E>=K8+K8 THEN HPT=HPT* fL»K23 :G0 
TO 438 

432 IF E=K9+K6 THEN HPT=HPT+L :GOTO 438 

433 IF E=K3 THEN HPT^HPT- CL«K23 :GOTO 4 
38 

434 IF E<K8 THEN HPT=HPT-L 

438 ? 116:? It6:" HIT POINTS ";HPT 
448 IF Z=K1 OR Z=K3 THEN IF L>=12 THEN 
? «6jYS;" 2/l":G0T0 456 

445 IF Z=K1 OR Z=K3 THEN IF L>=K6 THEN 
? «6jYS;" 3/2":G0T0 456 

446 IF Z=K2 THEN IF L>=16 THEN ? tt6;Y$ 

2/1": GOTO 456 

447 IF Z=K2 THEN IF L>=K7 THEN ? 116; Y$ 
. ■• 3/2" 

456 IF Y=K1 OR Y=K3 OR Y=K6 THEN GOSUB 
7088 

457 ? "IS";N$;" HAS ";GP;" GOLD PIECES" 

458 GOSUB 6130:? :? " PRESS ANY KEY 
TO CONTINUE" 

459 OPEN ttl,4,8,"K:";GET ttl,I:CLOSE «1 
:IF I>0 THEN 460 

468 BS-INTCL/K4)+K2:IF Z=K6 OR Z=K7 TH 
EN 462 

461 GOTO 580 

462 GRAPHICS 1^16 
? tt6:? tt6:? tt6:? tt6 

BS 

PP - - 

LOCKS 

TRAPS 

MS 

H5 

HEAR - 

CLIMB 

LANGUAGES 



463 
465 
466 
467 
468 
469 
478 
471 
472 
473 
474 



tt6;" 
«6;" 
116 J" 
«6;" 
tt6;" 
tt6;" 
tt6;" 
116;" 
«6;" 
tt6:? 116:? ttBi" 



X";BS 

";TCL,K1> 

";T(L,K23 

";Ta,K3J 

";TCL,K43 

";TCL,K5> 

";T(L,K63 

";TCL,K71 

":TCL.K83 



THIEVES ABILITIES 



475 FOR I=K1 TO Kie'^3«K5 :NEXT I 

580 IF Z=K8 OR Z=K9 THEN 585 

581 IF Z=Kie THEN 558 

582 GOTO 4999 
585 GRAPHICS 2+16: POKE 712 ,168 

tt6:? tte;" WiH;M;aMi«m 



510 


? tt6:? tt6:? 


[4: 


";MUCB,1) 


515 


? tt6:? tte;" 


,23 




528 


? tte:? tte;" 



I!H:M5IIUWJ41E ";mu(b 
l!r:Wtili|!Wjqg ";mucb 

,33 

538 FOR I=K1 TO 4088: NEXT I 

535 GOTO 4999 

558 GRAPHICS 1+16:P0KE 712,212:P0KE 71 

8,224 

551 ? tte:? tte:? tte:? tte;" l!M.'i:«[f>1;» 
S":? tte 

552 ? tte:? tte;" ARMOR CLASS ";MKCL 
,13 

553 ? tte;" MOVE ";MK«L,23 ;" ■" 

554 IF ra(CL,K33=Kl THEN MS="1" 

555 IF MKCL,K33=54 THEN M$="5/4" 

556 IF rN((L,K33=32 THEN MS="3/2" 

557 IF MK{L,K33=K2 THEN M$="2" 

558 IF MKCL,K33=52 THEN MS="5/2" 

559 IF MK(L,K33=K3 THEN M$="3" 

560 IF MKCL,K33=K4 THEN MS="4" 

561 ? tte;" ATTACKS/ROUND ";MS 

562 IF HKCL,K43=13 THEN D$="1D3" 

563 IF MKCL,K43=14 THEN DS="1D4" 

564 IF MKCL,K43=16 THEN DS="1D6" 

565 IF MKCL,K43=27 THEN D$="1D6+1" 

566 IF ra(CL,K43=28 THEN D*="2D4" 

567 IF MKCL,K43=39 THEN DS="3D3" 

568 IF MKCL,K43=212 THEN D$="2De" 

569 IF MK(L,K43=312 THEN D$="3D4" 
578 IF MKCL,K43=413 THEN DS="3D4*1" 

571 IF NKtL,K43=416 THEN D$="4D4" 

572 IF MKCL,K43=517 THEN dI="4D4+1" 

573 IF MKCL,K43=520 THEN D$="5D4" 

574 IF MKCL,K43=624 THEN DS="eD4" 

575 IF MK{L,K43=530 THEN D$="5De" 

576 IF MK(L,K43=832 THEN DS="4D8" 

577 ? tt6;" DAMAGE/ATTACK "jDS 

578 ? tte:? tte:? ttes" 

579 ? tte;" 
588 ? tte;" _ 

599 FOR I-Kl TO 5e00:NEXT I 
1999 GOTO 4999 



SEE THE PLftYERS 

HANDBOOK FORL 

SPECIAL ABILITIES 



ISSUES 



A.N.A.L.O.G. COMPUTING 
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2800 ? "**IF VOU'RE HAUING TROUBLE PIC 

KIHG":? "fl NAME FOR VOUR CHARACTER, PE 

RHAP5" 

2885 ? "YOU'D LIKE A FEH SUGGESTIONS. 

II 

2810 ? "VOU'RE MELCOME TO USE ONE OF T 
HE5E:" 

2815 ? "*45ETH THE HUGE", "BUCKTHORN" 

2816 ? "AARON THE SWIFT", "ELLIDE" 

2817 ? "BRIAN OF BLACKMOOR", "JANO" 

2818 ? "ALONSO THE HOOK", "TAPHENESE" 
2013 ? "SIR BAGLEY","BAAREN SATO" 
2828 ? "**IF YOU WANT ONE OF THESE , JU 
ST":? "TYPE IN THE NAME AND PRESS GfflDD 
GJIl. " »—■=—-' 

2022 ? "*IFYOU DON'T, TYPE 'NO' AND P 

HESS":? "SailBCI.":? "iNAWE";: INPUT M$: 

IF NS="NO" OR N$="N" THEN NS="HHOOZIT" 

282B GRAPHICS 1:P0KE 788,4e:P0KE 752,1 

: RETURN 

2550 AzJtKlJ :B=JCK2> :C=JtK33 :Al=JtK4] : 

B1=J(K53 :C1=JCK6) :? "H" 

2555 ON Y-Kl GOTO 2600,2588,2630,2650, 

2678,2780 

2576 RETURN 

2580 IF A<K8 THEN ? N$;ZS:? ST$;B«;" l> 

MARF.":GOTO K17 

2585 IF B1<K6«K2 THEN ? NSjZS:? CNS;BS 

;" DWARF.": GOTO K17 

2550 IF GS="F" THEN IF JfKl)>K9^K8 THE 

N J(K1)=K18«K7 

2535 IF JCK4)>K9+K8 THEN JtK4)=:K9+K8 

2597 IF JCK63>K8+K8 THEN J(K6)=K8+K8 

2599 RETURN 

2680 IF B<K8 THEN ? N$;Z$:? IN$;B$;"N 

ELF.":GOTO K17 

2685 IF A1<K7 THEN ? NS;ZS;? DXS;B$;"N 

ELF.":GOTO K17 
2610 IF BKK6 THEN ? NS;ZS:? CN$;B5;"N 

ELF.":60T0 K17 
2615 IF C1<K8 THEN ? NS;ZS:? CHS;B$;"N 

ELF.": GOTO K17 
2620 IF GS="F" then IF JtKlJ>K8+K8 THE 
N JCK1)=K8+K8 
2625 RETURN 

2630 IF A<K6 THEN ? N$;ZS:? ST$;B$;" G 
NOriE.":GOTO K17 

2635 IF B<K7 THEN ? N5;ZS:? INS;B$;" G 
NOME.": GOTO K17 

2640 IF 8KK8 THEN ? NS;ZS:? CN$;BS;" 
GNOME.": GOTO K17 

2645 IF G$="F" THEN IF JCK1}>K3«K5 THE 
N JCK1)=K3*K5 
2648 RETURN 

2650 IF B<K4 THEN ? NS;Z$:? IN$;B$;" H 
ALF-ELF.":GOTO K17 

2655 IF A1<K6 THEN ? NS;ZS:? DXS;BS;" 
HALF-ELF. ":GOTO K17 

2668 IF B1<K6 THEN ? N$;ZS:? CNS;B$;" 
HALF-ELF.": GOTO K17 

2665 IF G$="F" THEN IF JCK1)>K9+K8 THE 
N JCKl}=K9tK8 
2668 RETURN 

2670 IF A<K6 THEN ? N$;Z*:? STS;B$;" H 
ALFLING.":GOTO K17 

2675 IF B<K6 THEN ? NS;Z$:? IN$;B$;" H 
ALFLING.":GOTO K17 

2688 IF AKK8 THEN ? NS;Z$;? DXSjBS;" 
HaLFLING.":GOTO K17 
2685 IF BKKie THEN ? N$;ZS:? CNS;BSj" 

HALFLING.":GOTO K17 
269B IF GS="M" then IF JCK1}>K9«K8 THE 
N JCK1)=K91^K8 

2694 IF GS="F" then IF J(K1)>K7«K7 THE 
N JtKl)=K7+K7 

2695 IF JIK3J>K9+K8 THEN JtK3J=K9+K8 

2696 RETURN ^ ^ 
2790 IF A<K6 THEN ? N$;ZS:? STS;B$;" H 
ALF-ORC.":GOTO K17 ^ ^ ^ ^ 
2785 IF BKK6+K7 THEN ? NSjZS:? CNS;B$ 
;" HALF-OHC.":GOTO K17 

2710 IF JCK2J>K9*K9 THEN JCK2I=K9+K8 
2715 IF JCK33>K7+K7 THEN JCK3J=K7+K7 
2720 IF JCK4J>K7+K7 THEN JtK4>=K7+K7 
2725 IF JIK63>K6+K6 THEN JCK6>=K6+K6 
2730 RETURN 
4999 GRAPHICS ISSETCOLOR 2, L, 4: POKE 75 



2,l:SETC0L0R 4,L,4:G0T0 160 

5080 A-F(K13 :B=FCK2) :C=FtK3J :D=FtK4>:E 

=FfK53 :F=FtK6J :? "«" 

5005 ON Z GOTO 5100,5200,5300,5408,550 

0,5680,5780,5880,5988,5958 

5055 RETURN 

5100 IF A<K9 THEN ? NS;ZS:? ST$;B$;" F 

IGHTER.":G0T0 K241 

5185 IF E<K7 THEN ? N^jZS:? CNS;B$;" F 

IGHTER.":GOTO K241 

5110 RETURN 

5280 IF ft<K10+K3 THEN ? N$;Z$:? ST5;BS 

;" RANGER. ":G0T0 K241 

5285 IF B<K18*K3 THEN ? NS;ZS:? INS;BS 

;" RANGER. ":G0T0 K241 

5210 IF C<K10HhK4 THEN ? NS;ZS:? WI$;B$ 

;" RANGER.": GOTO K241 

5215 IF E<K10+K4 THEN ? NS;ZS:? CN$;B$ 

;" RANGER.": GOTO K241 

5220 IF Y=K3 THEN ? DWS; "RANGERS .": GOT 

K241 

5225 IF Y=K2 THEN ? E$;"RANGERS .":G0TO 

K241 
5230 IF Y=K4 THEN ? GNS; "RANGERS.": GOT 
K241 

5235 IF Y=K6 THEN ? HA$; "RANGERS.": GOT 
K241 

5240 IF Y=K7 THEN ? H0S;"RANGERS.":G0T 
K241 
5245 RETURN 

5380 IF A<K18+K2 THEN ? NS;Z5:? ST$;B$ 
;" PALADIN.": GOTO K241 

5385 IF B<K9 THEN ? N5;ZS:? INS;B$;" P 
ALADIN.":GOTO K241 

5310 IF C<K18+K3 THEN ? NS;ZS:? WI$;B$ 
;" PALADIN.": GOTO K241 

5315 IF E<K9 THEN ? N$;Z$:? CN$;B$;" P 
ALADIN.":GOTO K241 

5320 IF F<K9+K8 THEN ? N$;Z$:? CH:$;B$; 
" PALADIN.": GOTO K241 

5325 IF YOKl THEN ? "ONLY HUMANS CAN 
BE PALADINS.": GOTO K241 
5330 RETURN 

5400 IF C<K9 THEN ? N$;Z5:? WlS;B$;" C 
LERIC'iGOTO K241 

5485 IF Y=K6 THEN ? HAS ; "CLERICS .":GOT 
K241 
5410 RETURN 

5580 IF C<K10+K2 THEN ? N$;Z$:? WlS;6$ 
;" DRUID.": GOTO K241 

5505 IF F<K104K5 THEN ? N$;Z$:? CH$;BS 
;" DRUID.": GOTO K241 
5510 IF Y=K3 THEN ? DUS; "DRUIDS .":GOTO 

K241 
5515 IF Y=K2 THEN ? E$; "DRUIDS.": GOTO 
K241 
5520 IF Y=K4 THEN ? GNS;"DRUIDS . " :GOTO 

K241 
5525 IF Y=:K7 THEN ? HO$;"DRUIDS ." :GOTO 

K241 
5530 RETURN 

5600 IF D<K9 THEN ? N$;Z*:? DK$;B$;" T 
HIEF.":GOTO K241 
5605 RETURN 

5700 IF A<K10+K2 THEN ? N$;ZS:? STSjBS 
j"N ASSASSIN.": GOTO K241 
5785 IF B<K18+K1 THEN ? N$;Z$:? INS;B$ 
;"N ASSASSIN.": GOTO K241 
5710 IF D<K18+K2 THEN ? N$;Z$:? DX$;B$ 
;"N ASSASSIN.": GOTO K241 
5720 IF Y=K6 THEN ? HAS; "ASSASSINS. ":G 
OTO K241 
5725 RETURN 

5800 IF 8<K9 THEN ? NS;ZS:? INS;BS;" M 
AGIC-USER.":GOTO K241 

5805 IF D<K6 THEN ? NS;ZS:? DXS;BS;" H 
AGIC-USER.":GOTO K241 

5810 IF Y=K3 THEN ? DMS ; "MAGIC-USERS ." 
:G0T0 K241 

5815 IF Y=K4 THEN ? GNS ; "MAGIC-USERS ." 
:GOTO K241 

5820 IF Y=K7 THEN ? HOS; "MAGIC-USERS ." 
:GOTO K241 

5825 IF V=K6 THEN ? HAS; "MAGIC-USERS." 
:GOTO K241 
5838 RETURN 
5980 IF B<K10+K5 THEN ? NS;ZS:? INS;BS 
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A.N.A.L.O.G. COMPUTING 



ISSUES 



;"N ILLUSIONIST.": GOTO K241 

5985 IF D<Kie+K6 THEM ? IIS;ZS:? DXS;B$ 

;"ll ILLUSIONIST. ":GOTO IC241 

5918 IF Y=K3 THEM ? DHS;"ILLUSIOMISTS . 

'■:GOTO K241 

5915 IF Y=K2 THEM ? E«;"ILLUSI0MIST5 . ■■ 

:G0T0 K241 

5920 IF Y=K7 THEM ? H0$;"ILLUSI0NI5TS . 

"!G0T0 K241 

5925 IF Y=K6 THEM ? HiftS; "ILLUSIOMISTS . 

":GOTO K241 

5930 RETURN 

5950 IF A<K18+K5 THEM ? MS;ZS:? ST5;B5 

;■■ MONK.": GOTO K241 

5955 IF C<K18+K5 THEM ? NS;ZS!? MIS;B$ 

;" MONK.": GOTO K241 

5960 IF D<Kie+Kl THEM ? M$;Z$:? DX$;BS 

;" MONK.": GOTO K241 

5965 IF E<Kie«Kl THEN ? NS;ZS:? CN5;B« 

:" MONK.": GOTO K241 

5978 IF YOKl THEN ? "ONLY HUMANS CAN 

BE MONKS.": GOTO K241 

5975 RETURN 

6130 IF D=18 THEN T <L,K1J=T CL,K1> +Kie : 
T(L,K2)=TCL,K2)+15:T(L,K3)=TCL,K3J+K5: 
TCL,K41=TCL,K4)+18:TCL,K5>=TCL,K5J+ie 

6131 IF 0=K18+K7 THEN T CL,K1J =T CL^KIJ + 
K5 : T CL , K23 rT tL , K2> +K10 : T f L , K4 J =T CL , K4J 
+K5 : T CL, K53 =T tL , K53 +K5 

6132 IF D=K10+K6 THEN T CL,K2) =T CL, K2J+ 

6133 IF D=K18+K2 THEN T CL,K4J =T CL,K4J- 

6134 IF D=K181^K1 THEN T CL,K1} =T CL .KIJ- 
KS : T CL , K3} =T CL , K3J -K5 : T CL , K4) =T CL , K4J - 
Kj.8 

6135 IF Y=K3 THEN T CL, K2)=T CL, K2) +K18 : 
^^^.''^5if^*'-''<''*lS = TCL,K7J=TCL,K7J-Kie 
:TCL,K8)=TCL,K«3-K5 

6136 IF V=K2 THEN T CL,K13=T CL,K1J +K5:T 
CL,K23=TCL,K2J-K5:TCL,K4J=TCL,K4J+K5:T 
CL , K5J =T CL , K53 +K18 : T CL . K6> =T CL , K6J +K5 

6137 IF Y=l(4 THEN T CL,K2J=T CL,ft2>+K5:T 
CL , K3 J =T CL, K3 J +K18 : T CL , K4 J =T CL , K4) +K5 5 
T CL , K5> =T CL , K5J +K5 : T CL , K6> =T CL , K6) 416 
613S IF Y=K4 THEN T CL, K7J =T CL, K7J-K15 
6139 IF Y=K5 THEN T CL,K1J=T CL,K1J +Kie : 
TfL,K5)=TtL,K53*K5 

6148 IF Y=K6 THEN T CL , K1J=T CL,K1J +K5 : T 
CL , K23 =T CL , K2> +K5 : T CL , K3J =T CL , K3) +K5 : T 
CL,K4)=TCL,K4)+Kie 

6141 IF Y=K6 THEN TCL,K53 =:TCL,K5)+K18+ 
K5:TtL,K6J=TCL,6>+K5:TtL,K7J=TCL,K7J-K 
184K5 : T CL , K8) =T CL , K83 -K5 

6142 IF Y=K7 THEN T CL ,K1J=T CL, Kll -K5 : T 
tL,K23zTCL,K2>+K5:TCL,K3J=TCL,K3J+K5 

6143 IF Y=K7 THEN T CL, K63=T CL,K6) +K5 :T 
CL, K7J =T CL, K7 J +K5 : T CL , K8} =T CL , K8 J -K18 
6288 RETURN 

7880 AI=IHTC2.5»B-16> : AN=INT CI .5MC-163 
:AC=IHTC8.5»F-163 

7081 IF AI<e THEN AI=8 

7082 IF AM<e THEN AM=e 
7863 IF AC<8 THEN AC=e 
7884 AT=AI4AM+AC 

7085 PS=INTCK13»RNDCK13+AT+13 :IF PS>=K 
13 THEN ? tt6:? tt6;" ";N$;" HAS":? »6;" 

PSIONIC ABILITY" 
7G1B AI=B-12:ftM=C-12:AC=F-12:IF AI<8 T 

7811 IF AM<K8 THEN AH=K8 

7812 IF AC<K8 THEN AC=K8 

7813 AT=AI+AH+AC 

7815 MP=Ke:0T=K8:IF B>16 THEN 8T=0T*K1 

7828 IF C>16 THEN 0T=0T+K1 

7825 IF F>16 THEN 0T=0T+K1 

7838 IF 0T=K2 THEN MP=K2 

7835 IF 0T=K3 THEN MP=K4 

7848 PST=INT CKISWRND CK13 +K13 -^AT^HP 

Ty"*- "^P5T«K2^' ^"^^ '^ "'"'^I*"'!*^ *BILI 
7958 IF PS>=K13 THEN ? "PSIONIC STRENG 
TM = ";PST:FOR 1=1 TO 288e:NEKT I 
7855 RETURN 

I2?S IRk*'S?5^*P'EE'f "«73 +PEEK C186> 
8818 CUR=PEEKC9e3 :? "«":? "INPUT ERROR 
— TRY AGAIN >":F0R 1=1 TO 50 : SOUND o" 



I+58,18,8:NENT I:SOUND 8,0,8,8 
8828 TRAP 8888:6010 CERLN3 



D: CHECK DATA 

5 DATA 488,646,24,986,119,911,716,75,1 

64,298,387,678,642,113,136,6119 

75 DATA 779,348,859,149,828,488,652,75 

8,186,896,858,242,282,287,917,8265 

185 DATA 983,725,461,652,289,769,878,7 

01,764,756,574,291,872,168,383,9818 

192 DATA 58,726,366,178,968,815,74,543 

,819,281,817,316,185,228,554,6928 

236 DATA 17,592,968,448,787,648,77,379 

, 339 ,65,53,57,65,49, 159 , 4687 

253 DATA 226,282,157,821,583,886,892,7 

77,18,461,944,962,666,39,287,7673 

316 DATA 446,723,17,188,729,278,386,70 

9,448,93,33,372,872,107,598,5911 

337 DATA 299,96,73,818,477,173,779,881 

,793,703,44,547,489,863,598,7625 

362 DATA 448,527,415,178,289,482,846,5 

14,477,233,684,438,381,550,309,6603 

398 DATA 435,380,205,562,632,334,255,6 

76,608,392,577,488,738,586,685,7297 

432 DATA 984,355,701,260,832,914,524,5 

82,421,785,217,512,613,796,508,8844 

463 DATA 627,210,381,674,664,399,486,5 

55,539,959,323,115,580,887,688,7919 

585 DATA 780,690,788,762,468,16,267,66 

6,897,28,554,820,803,813,739,9883 

559 DATA 788,559,582,799,883,818,269,6 

8,69,860,995,180,69,311,859,7853 

574 DATA 10,68,884,452,399,29,871,478, 

942 , 502 , 57 , 867 , 756 , 186 , 427 , 6848 

2818 DATA 596,287,188,594,857,958,185, 

815,388,387,238,613,447,823,75,7355 

2605 DATA 76,45,48,13,973,873,846,383, 

996,986,143,774,674,402,667,7899 

2670 DATA 713,688,778,956,37,390,436,8 

20,746,687,485,379,571,412,885,8823 

4999 DATA 583,814,27,652,778,728,791,3 

22,381,386,300,601,446,527,514,7682 

5240 DATA 534,807,719,189,228,728,81,9 

55,647,880,818,643,951,893,497,9578 

5515 DATA 236,488,637,651,451,978,841, 

812,812,892,983,664,686,152,76,9351 

5828 DATA 356,159,814,266,308,433,256, 

427 , 602 , 659 , 565 , 363 , 805 , 544 , 474 , 7031 

5975 DATA 831,175,836,891,881,505,256, 

487,429,495,796,449,977,965,273,9256 

6200 DATA 637,648,782,802,981,106,288, 

900,132,998,251,913,365,378,182,8275 

7035 DATA 469,373,54,238,654,33,99,250 

,2178 
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TO 
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TOLL FREE 

1-800-345-8112 

In Penna. 1-800-662-2444 



FIRST and FINEST 

In Systems Software for Atari and Apple 



IVIAC/65 

First we delivered Atari's Assembler/Editor (the 
cartridge). 

Then we produced our enhanced "EASIVID." 
Now OSS is introducing tiie finest integrated 
assembly language development system yet! 
In addition to being ideal for writing small, 
"quick and dirty" subroutines and 
programs, MAC/65 shows its full power and 
speed when used with even the most complex 
of large assembly language source files. 
Naturally, MAC/65 is upward compatible with 
both EASMD and the Atari cartridge. And, of 
course, the object code output is also compati- 
ble with OS/A+, Atari DOS, and/or Apple DOS, 
as appropriate. 
MAC/65 $80.00* 



OS/A+ 

Optimized Systems Software — the group that 
produced both the first Apple DOS and the first 

Atari DOS — now brings you OS/A+, which 
combines the finest features of these and other 
successful personal computer operating 
systems. 

OS/A+ is the first and finest operating system 
available for botli Apple II and Atari computers 
and features a keyboard-driven, easy-to-use 
command processor. In addition to several 
simple resident commands, OS/Ah- allows logi- 
cal and readable requests for even the most 
sophisticated utility commands. In fact, the 
user can even add system commands as 
desired. 

But the real power and flexibility of OS/A+ is 
its ability to easily interface to devices and disk 
drives of virtually any kind and size. File com- 
patibility (with Apple DOS or Atari DOS, as ap- 
propriate), device independence, batch proces- 
sing, easy of use — OS.'A-f truly brings the 
finest in operating systems to your computer. 
AND NOW OS/A-i- (for standard Atari or Apple 
dhves) is included as a part of every standard 
OSS language package. Versions of OS/A+ for 
some higher capacity drives available at 
extra cost. 



Unless otherwise noted, all OSS products re- 
quire 48K and at least one disk drive. We re- 
commend 64K for the Apple version of OS/A-h. 



SpeedRead+ 

The first and still finest speed reading tutor 
designed for you to use on your computer is 
available only from OSS. 
SpeedRead-i- uses time-proven techniques to 
train you to instantly recognize words and 
phrases, and yet it goes far beyond what mere 
mechanical devices are capable of. 
SpeedRead+ exercises your peripheral vision, 
improves your eye movement and timing, and 
generally works with you at your pace... now 
and in the future. 

NOTE: The Atari version of SpeedRead+ needs only 
16Kof RAM. 

SpeedReadH- $59.95 



-' V 

C/65 

NOW AVAILABLE! 
The first native mode C compiler ever produced 
for Atari and Apple computers. 
C/65 supports a very usable subset of the ex- 
tremely powerful and popular C language. Just 
as C is used by the most sophisticated pro- 
grammers from the professional and academic 
communities, so shall C/65 prove to be a pow- 
erful and much-needed tool for 6502 software 
developers. 

C/65 supports integer and character types (and 
arrays), pointers, fully recursive functions, and 
much more. 

NOTE: C/65 requires MAC/65 or an equivalent assem- 
bler. Two disk drives recommended but not required. 

C/65 $80.00* 
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As a product of Tiny C Associates, tiny-c was 
the first structured language interpreter for 
microcomputers. Now OSS brings this innova- 
tive interpretive language to your home com- 
puter. While not having the speed and power a 
true C compiler, tiny-c is an excellent choice 
for the programming student who is ready to 
begin learning the valuable techniques of 
structured languages. 

tiny-c provides an easy-to-use, easy-to- 
modify environment that encourages ex- 
perimentation while promoting proper pro- 
gramming style. The tiny-c package includes 
not only a comprehensive and instructional 
user manual but also complete source, 
tiny-c $99.95* 



BASIC A+ 

"From the authors of Atari BASIC..." 

It's a fact! OSS gave you that first and most 
popular language for Atari Home Computers. 
But why be content with the first when you can 
have the finest? 

BASIC A+ is the only logical upgrade available 
to the Atari BASIC programmer. While retaining 
all the features which make Atari BASIC so 
easy to use, we've also given BASIC A+ fea- 
tures that place it at the forefront of modern 
interpretive languages. BASIC A+ will let you 
explore the worlds of structured programming, 
superior input/output, helpful programming 
aids, and even a very comprehensive PRINT 
USING command. And, exclusively for the Atari 
computer, an almost unbelievable array of 
PLAYER/MISSILE GRAPHICS commands and 
functions. 
BASIC A+ $80.00* 



•REMEMBER: Standard OS/A+ is included at no extra charge with BASIC A+, MAC/65, C/65, and tiny-c. 

ATARI, APPLE II, and TINY C are trademarks of Atari. Inc., Apple Computer, Inc., and Tiny C Associates, respectively. SpeedRead + . MAC/65, C/65, 
BASIC A+ and OS;A+ are trademarks of Optimized Systems Software, Inc. 



Optimized Systems Software, Inc., 10379 Lansdale Ave., Cupertino, CA 95014, (408) 446-3099 




NEW FOR ATARI 



MMG MICRO SOFTWARE 



*»*******NECESSITIES********* 

DISK COMMANDER - Just saue this program on your BASIC disks 
and it will autoboot and automatically list all programs from the disk into 
your screen. Simply run any program by typing in a number. 

Requires 16K, Disk Only $24.95 

BASIC COMMANDER - This all machine language program is an 
absolute requirement for ATARI BASIC programmers. Single keystroke 
DOS and BASIC commands, plus; AUTONUMBER, RENUMBER, 
BLOCKDELETE and much more! 

Requires I6K, Disk Only $34.95 

RAM TEST - The most thorough and fastest memory lest ayailable for 
the ATARI. This all machine language program lakes 4 min. to test 48K. 
It's the only program that tests the cartridge area of RAM. Good for new 
400/800 computer owners and for testing new RAM boards. 

Requires 8K ■ Disk or Cassette $24.95 

******** BUSINESS/HOME********* 

MAILING LIST ■ Extremely fast BASIC .ind machine language 
program. Each data disk holds over 500 files. Sort on any of 6 fields at 
machine language speed. Use any size labels or envelopes. 

Requires 48K, Disk Only $39,95 

*********** TUTORIALS*********** 

ASTEROID MINERS - A unique game tutorial. A 32K BASIC game 
utilizing over 25 players in player-missile graphics, machine language 
subroutines, a redefined character set, inultiprocessing utilizing the 
vertical blank interrupt interval, and much more! Comes with a book 
documenting each part of the entire program, and fully documented 
source code for both the BASIC and assembly language parts of the 
program. Use these routines in your own programs. These examples will 
make it easy. 

Requires 32K, 1 Joystick - Cassette or Disk $34.95 

Dealers and Dislrihulors Contact' 

CLASSIC SOFTWARE, INC. 

RDl - 3D •HIGHWAY 34 • MATAWAN, NJ 07747 

(201) 566-5007 

ATARI is a regislered trademark of ATARI, INC. N J Residents add 5".. sales lax. 




ALL MACHINE LANGUAGE ARCADE GAME 
WITH INTELLIGENT MONSTERS! 

This arcade style game is sure to become an ATARI classic. 
Chomper requires 16K RAM, 1 joystick and nerves of steel. 
Available on Disk or Cassette $29.95 



Available at your favorite computer store or 
Send a check or money order directly to: 

MMG MICRO SOFTWARE 

P.O. BOX 131 . MARLBORO, NJ 07746 

or call (201) 431-3472 

for MasterCard, Visa or COD deliveries 



THE MONKEY WRENCH FOR ATARI 



$49.95 

(See the many 

reviews,) 



A BASIC and machine language 
r*j^ |5:/ programmefs aid tor 800 users. 
-j.Cji i 4 Plugs into right slot and works 

nXnA/ with ATARI BASIC. Adds 9 new 

Vi^j^ direct mode commands in- 

eluding auto line numbering, 
delete lines, change margins, 
memory test renumber BASIC, 
hex/dec conversion, cursor ex- 
change, and machine language 
monitor. 
The monrtor contains 15 commands used to interact with 
the 6502. Some are display memory/registers, disassem- 
ble, hunt, compare, hexidec convert, transfer memory. 
Uses screen editing. 

MACHINE LANGUAGE MONITOR 
FOR ATARI USERS 

A must for anyone Interested in machine language and 
wanting to know more about how the computer works. 
Provides 21 easy to use commands. Uses screen editing. 
Cassette - $24.95 Diskette - $29.95 
TYPING EXERCISE 

A great educational program. Consists of typing drills 
and timed typing tests. Diskette - $12.95 




ATARI AND PET 
EPROM PROGRAMMER 

Programs 2716 and 2532 
EPROMs. Includes hardware 
and software. PET = $75.00- 
ATARI (includes sophisticated 
machine language monitorl = 
$119.95 

EPROM BOARD FOR ATARI 

The EPROM board plug into the cartridge slots. Uses 
2716, 2532, and other EPROMs, May contain up to 8K, A 
must for making your own machine language programs, 
$19.95 

EPROMS - HIGH QUALITY, NOT JUNK 

Use with PET, APPLE, ATARI, SYM, AIM, etc, 450 ns. $6.50 
for 2716, $12.50 for 2532. We sell EPROM programmers 
for PET and ATARI - see above. 

5'/4 INCH SOR 
SECTORED DISKEHES 

Highest quality. We use them on 
our PETs, APPLES, ATARIs, and other 
computers. 

$22.50/10 or $44.50/20 



MAE SOFTWARE DEVELOPMENT SYSTEM 
More than just an Assembler/Editor! 



it's a 

Professionally 

Designed 

Software 

Development 

Systenn 



lOPl 



MAE 

for 

PET 

APPLE 

ATARI 

$169.95 




Blast off vi/ith the software used on the space 
shuttle project! 

• Designed to improve Programmef Productivily 

• Simla: syntax and commands -.No need to relearn peculiar 
syntaxes and commands wtien you go Irom PET to APPLE 
to ATARI 

• Coresident Assembler/Editor - No need lo load tfie Editor men the 
Assembler then the Editor, etc 

• Also includes Word Processor. Relocating Loader, and much 
more 

• Options EPROM Programmer, unimplemenled opcode circuitry 

• STILL NOT CONVINCED Send lor (ree spec sheet' 



MEMORY TEST 

Avoid problems with ATARI RAM cartridges. Don't let 
your guarantee run out without a test. Cassette - $6.95, 
Disk - $9.95 



3239 Linda Dr. 
Winston-Salem, N.C. 27106 
(919)924-2889 (919)748-8446 
Send for free catalog! 
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"Perhaps the finest educational software that I have ever had the 

pleasure of reviewing. Ifs easy for kids to use and effective in teaching 

basic concepts and skills.... My kids are learning with it right now!" 



Fred D'Ignazio, Educational Editor— Compute/, Associate Editor— Soffs/de, 
Auttior of bestseller— /<affe and the Computer 

We hope you've been using your ATARI for more tlian just games ... it is, and can be, a valuable educational tool for 
you and your children. 

Bruce and Dianne IVIitchell realized this potential and designed a series of programs for use in their Small World 
Preschool &. Kindergarten located in Durham, N.C. Presented on TV's PM Magazine these unique educational programs 
w\\\ introduce your 3-9 year olds to the era of learning with computers. Using the graphics and sound capabilities of the 
Atari, each program develops a particular skill and reinforces correct responses vs/ith happy faces and music. 

Beginning with basic concepts such as colors, shapes and the alphabet, your child will progress to an understand- 
ing of counting, arithmetic, and language sl<ills. 

Widely acclaimed, classroom designed and tested, these unique educational tools are now available to you ... for 
your chitdren. 



SPECIAL SKILLS 



* Color For Ttie Non-Reader 



Name Ttiat Color 



* Like Shaoe Identification 



• Different Sfiaoe Identification 



Caste Game 



MATH AND NUMBER SKILLS 



Count With Me 



Number Recoonition 



Addition 



Subtraction 



Add.-Vertlcal Horizontal 



Sub.-VerticailHorlzontal 



Advanced Addition/Subtraction 



Ones and Tens 



LANGUAGE SKILLS 



• AlDhabet Recoonition 



• Letter Seauence 



Lil<e Svmbol Discrimination 



Different Svmbo Discrimination 



Preschool 



Pricing Information 



Single Program 

Special Skills 

Language Skills 

Math and Number Skills. 

Complete Set 

Edumate™ Light Pen 




Pre-Sohool 

Kindergarten . . 

First Grade 

Second Grade 



Add $2.00 for postage & handling 



36.95 . 


. .41.95 


54.95 . 


. .59.95 


49.95 . 


. .54.95 


21.95 . 


. .26.95 



* Compatible with our Edumate™ Light Pen 
NOTE: All software requires 8K cassette/16K disk 

Start competing with your 4-year-old for computer time. Enroll In THE LEARNING CENTER, It could be the best 
investment you ever make ... in your children's future. See your local dealer or order direct. 

AoiioK.^no»,fnrm^ 1 1 /////f//////////IMMI """HE PROGRAMMER'S INSTITUTE 

COMING SOON for the ////M/////4li// RO. Box 3191 Dept L . , 

TRS-80 Model 1, IIL Color ////If/IW^ Chapel Hill, NC 27514 

Free Catalog Upon Request ////llf ///lif/® 1-919-489-2198 10 am -9 pm, Monday -Saturday 
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MISSING CAPABILITIES IN ATARI BASIC 



16K DISK 



by Larry Seftor 



INTRODUCTION 

For those ATARI users whose only experience has 
been with the ATARI, there must be a sense of mys- 
tery about ATARI'S so-called "limited" string 
handling capability. After all, ATARI BASIC will 
create a very long string and manipulate it with 
agility. Other ATARI owners have no doubt tried to 
convert programs from Microsoft BASIC to ATARI 
BASIC, and have stumbled onto these limitations. 

This article will first describe the string handling 
abilities which the ATARI lacks, and will present a 
number of possible ways to supply these missing 
talents. One of these methods will be described in 
detail, and a machine language program will be pre- 
sented which will add new capabilities to ATARI 
BASIC. 

MISSING CAPABILITIES 

While a string in ATARI BASIC must be dimen- 
sioned, it is not a true array of strings. That is, a true 
string array has a number of elements, each of which 
is a string itself. As an example of this capability, a 
teacher might want to write a program in which array 
N$ (30) contains the first names of her 30 pupils. To 
print the name of the Ith pupil, the program need 
only have a statement: 

Print N$(I). 

While the BASIC in this case is very simple, the 
internal work involved is great. Consider that each of 
the 30 elements might possibly have a different 
length. Somehow, a lot of bookkeeping must be per- 
formed to determine where in memory each element 
is stored. ATARI BASIC simply does not have the 
internal code to perform this work. 

POSSIBLE SOLUTIONS 

It is clear that anything done in one BASIC can be 
done in another. The resulting code may, however, 
be inefficient, wasteful, and messy. Therefore, while 
three possible solutions are discussed below, only 
one is really attractive. 

It is useful at this point to discuss ATARI arith- 
metic. All arithmetic in ATARI BASIC is done in 
floating point; there is no facility for doing integer 
arithmetic. When integers are required, for an array 
index for example, a floating point to integer con- 
version must be performed. Since floating point 
operations are much more complicated than integer 
operations, any BASIC code to calculate these in- 
dices is inherently inefficient. 



Solution I 

The first possible solution for creating a multi- 
element string array is to take a large ATARI string 
array and subdivide it into a number of equally sized 
sections. The programmer then does the bookkeep- 
ing explicitly. For example, if the large string is S$, 
and the length of each section is L, then the Ith ele- 
ment can be written as: 

S$((I-L) *L+1, PL). 
This method is probably the most commonly used 
and straightforward approach. Nevertheless, it has 
two fundamental problems. First, 4 arithmetic 
operations (in floating point) are required to find the 
two indices. Second, every substring must have the 
length of the longest substring. This is undesirable 
for a number of reasons. It is wasteful since any sub- 
string of length less than L will have unused bytes of 
memory. In the example of children's names given 
above, one Clementine in the class would have a 
dramatic effect on the amount of string space 
required. Each element will be 10 bytes long, even 
for Al or Bob. 

Having substrings of equal length also complicates 
coding. Each element must be tested upon entry to 
make sure it is not too long. Next, if its length is less 
than L, it must be padded with blanks. And finally, 
before it can be used, the blanks need to be stripped 
off. 

Solution II 

The second method one can use to mock up an 
array of strings is to maintain a table of information 
about where each substring lies in a large string array. 
Such a table might be a numeric array which contains 
the starting location of each substring in the large 
array. For example, if S$ is the large string array and 
PCS is an array of starting locations, the Ith sub- 
string could be written: 

S$ (POS(I), POS(I+l) -1). 

On the surface this is an elegant solution. Each 
substring can be any length, with no string space 
wasted. However, one must consider the space re- 
quired for the table. Six bytes in the table are 
required for each substring. Also, there is the cost of 
doing ATARI arithmetic. One subtraction must be 
performed in floating point, and then two floating 
point numbers must be converted to integers. 

The lack of flexibility in this approach turns out to 
be more of a problem. Going back to our example, if 
pupil #2, Larry, decides that he wants to be called 
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Laurence, things get complicated. All the elements in 
the large string array have to be shifted using BASIC 
operations, and the values in the numeric array have 
to be adjusted. 

Nevertheless, if one must deal with substrings of 
varied lengths, and if there is no need to overwrite an 
element, the method could have advantages over 
method one. 

Solution III 

The third possibility, and the one developed here, 
is based on a specific data structure. The extra infor- 
mation (data descriptors) required to have a string 
array will be embedded within the string data. Two 
bytes of overhead will be required for each substring, 
but there will be no cost for unused array elements. 
As will be seen below, this approach provides the 
user with a great degree of flexibility. More impor- 
tantly, this approach doesn't suffer from the disad- 
vantages of the two methods described earlier. 

This approach could be used either from BASIC 
or by use of a machine language routine. For reasons 
to be described below, the machine language routine 
is much more desirable. Indeed, the required mani- 
pulations would be most cumbersome, if performed 
from BASIC. 

The data structure is shown in figure 1. The first 
byte (Ni) specifies which of the array substrings is to 
follow. This value can run from 1 to 254- The second 
byte (Li ) provides the length of the substring (up to 
253). These two overhead bytes are followed by the 
actual Li bytes of string data. This is one complete 
data element. It may be followed by additional data 
elements, or by an end-of-string mark. 

Example 1 shows a string array with two elements. 
Element 88 is 8 characters long and consists of the 
string 'LAURENCE'. The second substring is ele- 
ment 3, the 5 byte lone string 'LINDA'. 

If element 88 is overwritten, example 2 results. 
The original string 88 is destroyed and everything 
else, including data descriptors, is shifted 10 bytes 
(10 = Li +2) toward the front of the string space. 
The new string 88, 'NEIL', is placed at the end of the 
string space. In the process of going to a shorter sub- 
string, 4 bytes of memory are recovered. 

IMPLEMENTATION 

There is the obvious advantage of speed in writing 
any software in machine language. This is particular- 
ly true in this case, since many of the operations re- 
quired are simpler when written in assembler. 
Perhaps the greatest advantage, however, lies in the 
ease of use. No special BASIC code must be written 
for these operations. 

The program is designed to be placed in page six of 
memory. Since BASIC doesn't know about page six, 
no memory is removed from program space. In addi- 
tion, once the program is put into place, unless deli- 
berately written over, it will remain until the 
computer is turned off. Hitting 'System Reset' or 



typing NEW or CLO AD will not erase the program. 

Listing 1 contains a BASIC program which will 
load the machine language array handler. Those 
readers interested in details of the machine language 
will have no trouble disassembling the program from 
this listing. 

In typical use, the program of listing 1 will be 
loaded and RUN. After completion the user can type 
NEW and enter a new program, or may CLOAD a 
program from tape. Listing 2 shows a sample pro- 
gram which demonstrates use of the array handler. 

This listing contains all aspects of using the ma- 
chine language string array program. It, therefore, 
merits close study. Line 20 sets the values of a num- 
ber of variables. It is here that both the location of 
the machine language subroutines, and the size of the 
string space are set. Line 30 tells BASIC to reserve a 
certain region of memory for use by the array 
handler. An initialization call is performed in line 40 
which tells the machine language program where this 
space is located. 

Line 50 is the start of a simple program which will 
either read data into the string array or print onto the 
screen one of the array substrings. Line 85 contains 
the machine language call for a write, while the read 
call is in line 140. Since characters entered on input 
go directly into memory, the usual editing (e.g., use 
of the cursor keys) on input is not available. To 
correct an incorrectly input character, type 'DEL'. 
This will print the deleted character in inverse video. 
If the delete key backs the input behind the starting 
position, input will be terminated and a null string 
written. This can be used to eliminate any unwanted 
strings, for the recovery of string space. 

The string defined in line 30 will not be a true 
string from the view of ATARI BASIC, the 'LEN' 
function will not work, and no error checking is per- 
formed. Therefore, if one is not careful, it is possible 
to write beyond the end of the string space as 
reserved by BASIC, doing unknown damage. For 
this reason, line 200 is important. The variables 
SPACELEFT and SPACEUSED are defined accord- 
ing to their names. If the programmer checks the 
value of SPACELEFT before each read, to deter- 
mine whether adequate space is left, the danger of 
crashing storage will become greatly reduced. Lines 
210 and 220 print out these two quantities, for 
demonstration purposes. 

While the usefulness of the array handler is appar- 
ent from running the above program, there is an 
important application which is as yet unaddressed. 
Suppose that in the classroom example above, the 
teacher didn't want to type in the pupils' names each 
tme the program was run. In this case, it would be 
useful to have the required information in DATA 
statements. 

Because of size limitation, the machine language 
program cannot handle such input. But it is possible 
to use a BASIC subprogram to set up a proper initial 
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configuration of the string array. It should be 
stressed that this is for initialization, and cannot be 
used subsequently in the program. Listing 3 is an 
example of this technique. Lines 70 through 140 
consist of the actual array initialization routine. 

CONCLUSIONS 

The BASIC interpreter proves a means to protect 
the programmer from the pitfalls of using a micro- 
processor. If one makes a mistake, the computer will 
usually print a diagnostic message rather than crash. 
Unfortunately, because the array handler must fit 
into 256 bytes, there is no room for such error 
checking capability. The programmer must take 
care. Some obvious errors are: 

( 1 ) writing beyond the end of the string space, 

(2) entering a line larger than 253 bytes, 

(3) specifying an element which doesn't lie 
between 1 and 254. 

There are no doubt others. Careful use, however, 
will avoid such pitfalls. 

There are still some array functions missing. For 
example, what is the third letter in the 5th string? 
Fortunately, there is a natural extension of this array 
handling method which will handle such tasks. 
However, since page six is full, the implementation 
will have to be handled differently. Such a program is 
currently under development. D 



1858 DAT* 141,141,255,6,168,8,169,255, 
JL45 "St? 

1868 DATA 96,168,8,177,212,281,255,288 

.2,56 

1878 DATrt 96,197,214,288,2,24,96,168,1 

J 24 

1888 DflTft 177,212,185,2,144,3,238,213, 

24,181 

1898 DflTft 212,133,212,144,222,238,213, 

76,61,6 

1188 DflTft 176,22,168,1,177,212,133,215 

,288,177 

1110 DATA 212,162,22,132,216,32,125,6, 

164,216 

1128 OATft 198,215,288,248,96,168,189,1 

,228,72 

1138 DfiTft 189,8,228,72,152,96,168,8,13 

2,216 

1148 DATA 176,38,288,177,212,168,288,2 

88,162,8 

1158 DATA 177,212,281,255,248,16,129,2 

12,24,165 

1168 DATA 212,185,1,133,212,144,239,23 

8,213,76 

1178 DATA 158,6,169,63,162,22,32,125,6 

,168 

1188 DATA 8,165,214,145,212,288,132,21 

6,162,36 

1198 DATA 32,125,6,281,126,288,13,164, 

216,177 

1288 DATA 212,185,127,198,216,248,38,7 

6,228,6 

1218 DATA 281,155,248,14,238,216,164,2 

16,145,212 

1228 DATA 162,22,32,125,6,76,188,6,162 

,22 

1238 DATA 32,125,6,168,1,198,216,165,2 

16,145 

1248 DATA 212,238,216,238,216,164,216, 

169,255,145 

1258 DATA 212,96 



D: CHECK DATA 



Data structure: 



L.| bytes of data 



L 2 bytes of data 



L, bytes of data 
Examples: 

(1) 888LAURENCE35LINDA ^5 

(2) 3 5 L I N D A 88 4 N E 1 L 5 



LISTING 1 

18 F8R 1=8 TO 251 
28 READ U 
38 POKE 1536+1, V 
48 NEXT I 

^133 212* ^^*'***'2'''^^5,148,ie9,254,6 
4*133*^217 ^®®'^**'^®'' 255, 6, 133, 213, 18 
|«20^*«TA 184,133,216,184,184,133,214, 
4®IL^?I$ les, 216, 8, 216, 184, 184, 133, 21 
^S1§ 5«TA 212,56,229,148,141,254,6,165 



18 DATA 65,348,92,378,767,874,763,993, 

851,838,535,375,578,778,833,9868 

1118 DATA 812,34,638,799,984,64,439,54 

,774,827,241,573,927,246,893,8217 



LISTING 2 

28 SIZE=2e88:SET2=1569:HRITE=1636:REED 

=1672 

38 DIH S$CSIZE) 

48 H=U5RC5ET2,ADR(S$)) 

45 TRAP 58 

58 ? "If«4 The Seftor ARRAY HANDLER" 

60 ? ■•*•♦ Input CI] OP Output (0)"; 

65 L=PEEKC764>:IF L=2S5 THEM 65 

78 PeKE 764,255:IF L<>8 AND L013 THEN 

65 
75 ? :? "4 Which eleHcnt"; ilNPUT i:G0 

TO L»18 

88 ? "4* The Message is:":? 

85 X=USR(1536,HRITE,I) :? :GOTO 280 

138 ? "♦ Enter your Message: 4" 

140 X=USRC153e,REED,I):? :? 

288 SPACEUSED=USR C1536 , WRITE , 8) -ADR f 5$ 

) :SPACELEFT=5IZE-SPftCEUSED 

218 ? "44 You have used ";SPACEUSED;" 

bytes." 
228 ? " There are ";SPACELEFT;" left. 

238 ? "44 Press any key to CONTINUE"; 
248 L=PEEK(764}:IF L0255 THEN POKE 76 
4, 255: GOTO 58 
258 GOTO 248 



D:CHECK and other programs continued on page 
93. 



CHOPPER RESCUE 

Zip up your flying suit and strap yourself into your sleek assault chopper: CHOPPER RESCUE challenges your skill and 
daring. Pilot your nimble craft through the treacherous underground labyrinth. Search out and rescue the captives 
trapped inside. Danger approaches from all sides as defenders fire winged missiles and sparkling energy bursts at 
your fragile craft. But you ore not defenseless, your explosive tipped rapid-fire missies dart out to blast a path through 
the dense minefields. Thread your bomb directly into the heart of their pulsating nuclear furnace. And just when you 
think the path is clear, a swift patrol drone appears from behind a ledge, spitting missies as you scramble for a firing 
position. Immerse yourself in the non-stop excitement of CHOPPER RESCUE, you'll keep coming back for more! 




CHOPPER RESCUE is a brand new game from MicroProse Software, Fully animated graphics, music, sound effects, 
and scrolling make this a showpiece for the ATARI'S leading edge capabilities. CHOPPER RESCUE features three 
scenarios multiple skill levels, and competition for 1 or 2 players. No two games are everalike. MicroProse is dedicated 
to bringing you gomes which challenge you for beyond the first few plays. We promise you hours of excitement 
and pleasure. 



CHOPPER RESCUE (ATARI 32K, disk) $29.95 

Other MicroProse games . . . 

HELLCAT ACE - A real time, three dimensional WWII 
flying simulation with a unique pilot's eye view 
$29.95 

FLOYD OF THE JUNGLE - A fun game for up to four 
players. Guide Floyd through the jungle hazards and 
reunite him with lovely Janice $29.95 



To Order C.O.D., Visa or Master Card Call: 

(301 ) 357-4920 or Send Check or Money Order Jo: 

MicroProse Software 
One Caribou Court 

Porkton, MD. 21120 

(Add $2.00 for Postage & Handling for Each Order) 

ATARI is a Register Trademarl< of ATARI. Inc. 



\A/HY PAY MORE? 

FOR ENTERTAINING SOFTWARE FOR YOUR ATARI 400/800* 

I 



ALl SOFTWARE AT LEAST 20%OFF RETAIL PRICES-AILTHETIME! 30-40% OFF ON SPECIAL SALE SOFTWARE! 

I 

MORE THAN 100 DIFFERENT GAMES, SIMULATIONS. PUZZLES, & ADVENTURES FROM ARTWORX, ADVENTURE INTERNATIONAL, 
EPYX, AVALON HILL, ONLINE, DATASOFT. ARCADE PLUS, IDSI, GEBELLI & MORE! 

! 

FREE CATALOG • FREE NEWSLETTER • FREESHIPPING ON ORDERS OVER $150 ■ FREE MASTERCARD AND VISA USE • MOST 
ORDERS SHIPPED SAME DAY RECEIVED OR NEXT DAY ONLY $2.00 SHIPPING AND HANDLING PER ORDER 

-BOX 247 IMEXA/ FLOREIMCE, PA 15344 

1412) 235 -23"7a 




PA residents add 6% sales tax 
•trademark of Atari Inc. 



ATTENTION PROGRAMMERS! 

A.N.A.L.O.G. Computing is interested in programs, articles, and software review submissions 
dealing with the ATARI 400 and 800 home computers, if you feel that you can write as well as you 
can program, then submit those articles and reviews that have been floating around in your head, 
awaiting publication. This is youropportunity toshare your knowledge with thegrowingfamily of 
ATARI computer owners. A.N.A.L.O.G. pays comparableto many othercomputer magazines. All 
submissions for publication must be typed, upper and lower case with double spacing. Program 
listings should be provided in printed form, and on cassette or disk. By submitting articles to 
A.N.A.L.O.G. Computing, authors acknowledge that such materials, upon acceptance for 
publication, become the exclusive property of A.N.A.L.O.G. If not accepted for publication, the 
articles and/or programs will remain the property of the author. If submissions are to be returned, 
please supply a self-addressed, stamped envelope. All submissions of any kind must be ac- 
companied by the author's full address and telephone number. Send programs to: Editor, 
A.N.A.L.O.G. Computing, P.O. Box 23, Worcester, MA 01603. 



fit M Wy Trf M 

T A n R H n K 
M 

ftTflRI SYMBOL » 
BV CRfllG HEIS5 « 



8 REM 

1 REM « 

2 HEM * 

3 REM * 

4 REM » 

5 REM 

18 GRAPHICS 24:C0L0R 1:P0KE 553,9 
28 R=8 

24 REM 

25 REM ««« PLOT STRAIGHT LJHES *** 

26 REM 

30 READ M,K,V,Z:PLOT M,X:DRAHTO V,Z:R= 

R+1 

188 DATA 144,13,144,76,144,13,156,15,1 

44,13,128,28,156,15,156,88,168,16,156, 

28,168,16,168,176 

lie DATA 168,16,188,28,188,28,188,176, 

184,21,180,24,184,21,194,24,194,24,194 

,84,248,154,248,172 

120 DATA 248,172,220,172,188,176,160,1 

76,168,176,144,176,144,176,144,144,88, 

188,68,180,88,188,88,160 

130 DATA 68,188,68,168,68,160,88,168,1 

28 , 28 , 128 , 76 , 184 , 21 , 184 , 84 

134 REM 

135 REM **» PLOT FALSE CURVES *** 

136 REM 

140 DATA 128,77,126.5,94,126.5,94,124, 

198,124,108,128,122,120,122,112,137,11 

2,137,104,145 

150 DATA 104,145,96,150,96,150,88,155, 

88,155,80,158,80,158,72,160 

160 DATA 144,76,142.5,94,142.5,94,148, 

108,140,108,135,122,135,122,126,137,12 

6,137,120,145 

178 DATA 128,145,114,151,114,151,108,1 

55.5,108,155.5,188,158.5,108,158.5,88, 

166 

180 DATA 156,88,153,5,112,153.5,112,15 

8,128,150,128,144,144,143,144,136,156, 

136,156,124,168 

198 DATA 124,168,112,176,112,176,182,1 

79,182,179,96,188,96,180,88,180 

200 DATA 194,84,194,92,194,92,198,112, 

198,112,208,130.5,208,130.5,216,141,21 

6,141,224,148 

210 DATA 224,148,232,152,232,152,240,1 

228 DATA 184,84,186,104,186,184,189.5, 

120,189.5,120,196,136,196,136,204,148 

230 DATA 204,148,216,160,216,160,228,1 

68,228,168,248,172 

240 DATA 182,122,184,132,184,132,188,1 

48,188,140,196,152,196,152,208,164,208 

,164,220,172 

250 IF R<68 THEN 30 

268 IF Ri:68 THEN 500 

310 REM 

320 REM FILL 

330 REM 

400 Q=0 



500 READ A,B,C,D:PL0T A,B:POSITION C,D 

:Q=:Q + 1 

900 POKE 765,1 

910 HIO 18,tt6,8,0,"5:" 

1000 DATA 144,13,144,76,144,76,142.5,9 

4,142.5,94,148,108,140,108,135,122,135 

,122,126,137,126,137,120,145 

1810 DATA 120,145,114,151,114,151,188, 

155.5,108,155.5,180,158.5,100,158.5,88 

,160,88,160,83,180 

1820 DATA 160,16,160,176,184,21,184,84 

1030 DATA 184,84,186,104,186,104,189.5 

,120,189.5,120,196,136,196,136,204,148 

1040 DATA 204,148,216,160,216,160,228, 

168,228,168,239,171 

2000 IF Q<20 THEH 508 

2010 IF «=20 THEH 2880 

2500 REM 

2510 REM *** MACHINE LANGUAGE **« 

2520 REM 

2800 POKE 559,34:F0R X=:l TO lOOOlNEKT 

X 

3000 FOR 1=1664 TO ie73:READ A:POKE I, 

A ! NEXT X 

3010 DATA 232,142,10,212,142,24,286,76 

3020'? USR (1664) : RETURN 
3030 RETURN 



FOR SOME INTERESTING VARIATIONS OH 
THE LOGO, TRY THESE LINES: 

10 GRAPHICS 24:SETC0L0R 1,0,0:C0L0R 1: 
POKE 559,0 

OR: 

3000 FOR 1=1664 TO 16S3:READ A:POKE I, 

A:NEKT I 

3010 DATA 232,138,41,15,168,138,41,240 

,142,10,212,141,24,208,140,23,208,76,1 

28, 6 

TO SEE LOGO BEING DRAWN, REMOVE THE 
■POKE 559,0- IN LINE lO. 



D: CHECK DATA 

®*5'*I2o^5?'*^*'*'»l^'*«6,200,562,472,l30 

5 ^^'HS' ^'^^'873,436, 686, 546, 5810 

130 DATA 721,191,487,322,290,982,325,1 

47, 291, 330, 204, 231, 938, 956, 994, 7409 

PL?"JSo®^fA^Z^''^=^'^57,87,225,96e,96 

4,541,608,560,34,78,951,592,7882 

?fPJ$^?.S|S'2^2,278,138,870,767,617, 
iOJ , ??>(', 4697 



ISSUES 
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D: CHECK DATA 

20 DftTfl 775,925,214,358,293,^16,768,92 
7,699,329,482,724,718,754,677,9534 
228 DATA 692,567,382,582,2143 



LISTING 3 



28 SIZE=:2e8e : 5ET2=1569 : W1ITE=1636 : REED 

=1672 

38 DIN S$C5IZE) 

48 K=USR(5ET2,ADRC5$)3 

58 REN 

68 REH WHIINPUT FROM DATA STATEMENTS 

65 REH 

78 1=8: DIM TSfl5> 

88 1=1+1 

98 READ TS:IF TS="e" THEM 148 

188 SSCLENrSS]+l}=CHR$CI) 

118 S$fLENCSS>+l)=CHR$fLENCT$)] 

128 5SCLEMCSSJ+1)=TS 

138 GOTO 88 

140 S$tLENCS$}+l)=CHRSC255) 

158 REM *** 

155 TRAP 218 

168 REM PRINT THE INITIAL CONFIGURATIO 

N 

178 eOSUB 388 

175 REM *HI*CHANGE IF REQUESTED 

188 ? "Mhich elenent would you like to 

change f8 to END]"; :INPUT CH 
198 IF CH=e THEN END 
195 IF CH<1 OR CH>3e THEN 218 
288 ? :? "Input new eleMent ";CH;:X=US 
R(1536,REED,CH] 
218 TRAP 218:G0SUB 388 



228 GOTO 188 

308 REN 

318 REN »»»PRINT THE NAMES 

328 REN 

325 ? "K^The Student's naMes are:*" 

327 POKE 752,1 

338 FOR J=l TO I-l STEP 3 

335 ?:?;:? J;" "j :X=USRC1536,HRITE, J 

) :R0M=PEEKC9e) 

348 POSITION 15, ROM:? J+1;" ■';iK=USRtl 

536, WRITE, J+1) 

345 POSITION 29, ROM:? J+2;" ";:K=USHI1 

536,l«lITE,J+2) 

358 NEKT J 

355 ? :? :POKE 752,0:RETURN 

488 DATA NEIL, LARRY, ALLISON, CARLA, JERR 

V, CAROL 

405 DATA CLEMENTINE, DAVID, STEVE, GORDON 

,HATT,ALEK 

418 DATA DERICK, JOSH, BRYAN, JASON, BRITT 

ON, JAN 

415 DATA KEN, ERIC, KEVIN, JEFFREY, ADAM, C 

HRIS 

428 DATA SUSAN, CHAD, LINDA, ROBIN, STEPHA 

NIE,HINDA 

425 DATA G 

• 

D: CHECK DATA 

28 DATA 775,925,214,38,287,49,228,194, 

721,878,874,587,661,138,341,6814 

155 DATA 715,917,681,298,848,988,662,9 

45, 875, 788, 368, e5[6, 364,868, 972, 18829 

338 DATA 113,217,885,672,483,847,271,7 

79,226,44,652,358,5467 



ATTENTION ATARI* OWNERS 

FASTCHIP 

A CUSTOM FLOATING POINT ROM 
FOR ATARI 400/800* 

from: Newell Industries 

FfiSTCHIP can give you up to thrsw and 1/2 tiMcs th* spe«d of th» 
original -floating point routines. Atari* BASIC uses these routines 
-for almost everything. You can see the difference. 

FASTCHIP is a pin compatible masked ROM that replaces the 
original rom. It can be installed as fast as two minutes (Atari 
800«) , fifteen minutes (Atari 400«> , and is a permanent replacement 
for the original rom. There are no modifications, cuts, or wires to 
add. Just remove the original rom and plug in the FASTCHIP rom. 
Installation instructions included. 

FASTCHIP comes with a 90 day full warranty. Return undamaged 
during this period for a full refund. 

Check with your local computer store or send ^41. 95 each, check 
or money order to NEWELL INDUSTRIES, 3340 Nottingham Ln. , Piano TX. 
75074. Texas residents add 5% sales tax. C.O.D. orders add SI. SO. 

Now avail ible for immediate delivery. Call 214-423-1781 or write 
for additional information. Dealer inquiries welcome. 

Also distributed by Jersey Systems, 800-52&-3^E»47 



♦ Trademark of ATARI INC. 





FOR ATARI 400/800 



MAGICAL, 
MYSTICAL, 

AND THOROUGHLY ENTERTAINING WORLD OF 
MONSTERS, DEMONS & TREASURES 
THAT IS COMPLETELY 

^DIFFERENT EVERYTIME YOU PLAY! 

YOU WILL START AS A FIGHTER, THIEF, CLERIC OR MAGIC-USER. 
TRY TO GAIN EXPERIENCE & POWER TO ADVANCE TO 
HIGHER LEVELS OF P lAf E R . 

Discover GOLD, WEAPONS, ARMOR, and MAGIC SCROLLS among the 
TREASURES of those you defeat. But BEIAIARE... 
ower leads you to more deadly monsters who may have magic powers I 
A wide choice of COMMANDS combined with SOUND EFFECTS 
makes for unparalleled computer melee ! 
OVER 35 completely different types of monsters 

.... LABYRINTHS .... 
CASSETTE - $24.95 DISK - $28.95 

(32K required) (48K required) 



4^ P regressive C omputer A pplications 
is setfWp' new standards of quality in microcomputer software. 

In this tradition, we are also presenting 
another supreme simulation ... 

COMPUTER EXCHANGE 

An OUTSTANDING STOCK MARKET simulation 
Solitaire, or up to 4 players trade stocks in 
a fictional stock market. 
One joy stick required per player 

....COMPUTER EXCHANGE-,.. 
CASSETTE - $21.95 DISK - $24.95 

(16K required) (32K required) 




ORDER FROM : 
P.C.A. 

P.O. BOX 46 
BURTONSVILLE, MD. 

## Dealer inquires welcome +* 



20866 
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-9X1 IV 

48 K 

RAM KIT FOR THE ATARI 400/800 

USES EXISTING ATARI 8K OR 16K RAM BOARD 
KIT INCLUDES ALL PARTS REQUIRED AND COMPLETE 
INSTRUCTIONS WITH DIAGRAMS 

12422* 

SEND CHECK OR MONEY ORDER TO: 

^miS NEOTECHNIC INDUSTRIES INC. 
MMtV PO. BOX 277 
MWMJk I. REDONDO BEACH.CA. 90277 

INDICATE ATARI 400 OR 800 WITH 8K OR 16K RAM 

•Calif, residents add 6% sales tax 
ATARI,400,800 are Trademarks of ATARI.Inc. 




A SETCOLOR D 
BA L ENTER 
CSAVE O A H A 
L E SOUND EW 
DOS F E NOT 
AS WO 
DATA DIM VAL 
1 S N E 
CLOG POP RUN 
P O K E N U E 
T T STATUS 
PRE BYE RT A 
1 A O P E N 
GRAPHICS P R D 
E U L END 
COM TO RND 




BASIC 

CROSSWORD 

PUZZLE 

ANSWERS 

(A.N.A.L.O.G. Computing No. 7) 



I® 



We ARE Atari! 

New Jersey's 

Largest Retailer of Atari Programs 

for 400/800 Models 

Over 400 Programs Available 

from More Than 60 Manufacturers 

Send for Our Latest Catalog 

Only $2.00 (includes postage and handling) 

Fully Refundable as a $2.00 aedit 

with your first purchase! 

Mai! check c? money order payatJe to Softwcire Aa^um to: 

Software Asylum Catalog, 626 Roosevelt Avenue, Carteret. N.J. 07(X)8 



ATARI* is a registered trademark of ATARI, INC. 



Software J^SVLUPl. Inc. 

(201) 969-1900 



ELCOMP 



Deateis welcome! 

BOOKS 
and SOFTWARE 



For ATARI PET-OSI -APPLE ll-6502-VIC-20-Sinclair-Tin 



ATARI ATARI ATARI ATARI 

ATARI BASIC - Learning by 
Using 

T»Ms new book is an "Action"- 
Book, You do more than read il. 
Learn the inlricacy of ATARI- 
BASIC thorugh the short programs 

:h are provided. The 
suggestions challenge you to 
change and write program 

utines. Yes. it's exciting - 
Many of the programs are 
approoriate for beginners as well 

experienced computer users. 
(Screen Drawings. Special Sounds, 
Keys. Paddles + Joysticks. 
Specialized Screen Routines, 

phics and Sound. Peeks and 

(is and special stuff ), 
Order-No. T64 S9.95 

ATARI Learning by Using — 
Book + cassette or disk 
This package includes the book 
No. 164 plus a cassette or disk 
(please specify) containing a 

Jty of the programs v.ihich 

isiei in the tiook 
Order No.: 72Z0 S39.95 

Games for the ATARl-Compuier 
How to program your own games 
on the ATARI. Complete listings 
in BASIC and Machine Language 
exciting games. Tricks and 



ELCOfWP FORTH - Enhanced 
FIG-FORTH on disk only. 
Order No. 7055 639.95 

How to connect your EPSON- 
Printer to the ATARI 400/800. 

Construction article with printed 
circuit board and sof lw;)ro. 
(Screenprint and variable charac- 
ters pet line). 
Order-No. 721(1 S19.95 



OSI OSI OSI OSI OS! 



Order No. 162 



S7.95 



The First Book of Ohio Scientific 

Introduction to OSI computers. 
Diagrams, hardware and software 
information not previously 
available in one compact source. 
192 pages. 
Order-No. 157 87-95 

The Second Book of OHIO 
Order-No. 158 E7,95 

The Third Book of OHIO 

Order No. 159 S7.95 

The Fourth Book of OHIO 
OrderNo. 160 E9.95 

VIP Package — Above book plus 
a cassette with the programs. 
Order-No. 16DA S19.95 

The Fifth Book of OHIO 
Order-No. 161 



GAME PACKAGE for the ATARI 

Book -t cassette or disk 
Includes the book No. 162 plus 
cassette or disk (please specify) 
taining a variety of the pro 
grams listed in the book. 
Order No. 7221 839.95 

ATMONA-1 

Machine Language Monitor for 
the ATARI 100/800. 

. powerful monitor provides 
with the Itrmware support 
that you need to get the most 
lui of your powerful system. 
ATMONA-1 comes on a bootable 
cassette. No cartridges required. 
Disassemble, Memory Dump HEX 
ASCII. (Change Memory 
cations, Blockiransfer, fill 
memory block, save and load 
machine language programs, start 
mach. Lang Progr. (Printer 
optional). 

les with introduciionary 
:ie on how to program the 
ATARI computer in machine 
language. (Available also in ROM) 
Order-No. 7022 819.95 

ATMONA-2 Superstepper 

A uery powerful Tracer to explore 
the ATARI ROM/RAM area. Stop 

previously selected address. 
Opcode or operand (casseitol. 
Order-No. 7049 &49.95 

EDITOR/ASSEMBLER for 
ATARI 800, 32K or <18K RAM 

'emely fast and powerful 
Editor/Assembler. (8K Source 
code in about 5 seconds) Includes 
ATMONA-K 

Order-No. 7098 S49.95 

MACRO-Aswmbler 

r ATARI 800, 48K RAM 
Please specify your system RAM. 

c or cassette. 
Order-No. 7099 S89.Q0 

Add S39.0Q forcartrmge version 
Gunfight - For ATAhi 400/800 
IGK RAM. needs two joysticks, 
mimation and sound. (8K machint 
languagel. 
OrderNo. 7207 619.95 

Birth control with the ATARI 

IKnausOginul Cass or disk 
Order No. 7222 S29.95 

Astrology and Biorhythm (or 

ATARI (cass. or disk) 

Order No. 7223 £29.95 

EPROM Cartridge KIT for ATARI 

ridge (bare board) with in- 
ctions (holds two 16K or two 
32K EPROMs (2716.2532,2732) 
Order No. 7224 S19.95 

Order No. 7043 complete S29.95 

Invoice Writing lor small 

business with ATARI 400/800 
16K RAM. 

Order No. 7022, cass. S29.8S 

OrderNo. 7200, disc. E9.99 
Mailing-List No. 7213 S24.95 

ntory Contr. No.7215 S24.95 

NEW ! ATEXT-1 

This new wordprocessof in 
machine language I8K) lor a)l 
ATARi 400/800 computers offers 
the best price performance ever, 
i editor control commands, 
' lormaiting commands, dyna 
ic formatting Vertical and 
Drizontal scrolling (up to 255 
char, per line) Include command 

n disk I 
Order No. 7210 cassette S29.95 
Order No. 721 1 disk 639.95 
Order No. 7212 cartridge 679.00 

Learn FORTH for the ATARI 
400/800. casst;lle or disk 
OrderNo. 7053 £19.95 



S7.95 

Invoice Writing Program for OSI 
CIPMF C4P. Disk and Cassette. 
8K BAM. 
Order-No. 8234 629.80 

Mailing List for CIPMF or 
C4PMF 2dK RAM 
250 addresses incl. phone number 
and parameters on one 5 1/4 disk) 
Order-No. 8240 829.80 



8K Micro 


soft 


BASIC Ref. Man. 


Order-No 


151 




69.95 


Expansion 


Handboo 


k for 6502 


and 6802 








Order-No. 


152 




69.95 


Microcomputer 


AppI 


Notes 


Order-No 


153 




69.95 


Complex 


Sound 


Generation 


New revised applications manual 


lor the Texas 


Inst 


uments SN 


76477 Comple 


X So I 


nd Genera- 



Order-No. 154 



66.95 



Small Business Programs 
Complete listings for the business 
user. Inventory, Invoice Writing, 
Mailing List and much more. 
Introduction to Business Appli- 
cations. 

Order-No. 156 614.90 

Microcomputer Hardware Hand- 
book (845 pages) 

Descriptions, pinouts and specifi- 
cations of the most popular 
microprocE.'ssor and support chips. 
A MUST for the hardware bulf 
Order-No. 29 S 14.95 



Care and Feeding of the 
Commodore PET 

Eight chapters exploring PET 
hardware. Includes repair and 
interfacing information. Pro- 
gramming tricks and schematics 
Order-No. 150 89.95 

Prototype-Expansion Board for 
VIC-20 (S-44-Bus). 
Order-No. 4844 618.95 

Wordprocessorf.VIC-20,8K RAM 
Order No. 4870 619.95 

Mailing List for VIC-20,16kRAM 
Order No. 4883 £14.95 

Tricks for VICs - The VlC^tory 
Programs, hints and expansion 
information for VC-20 
Order No. 141 89.95 

TICTAC VIC 

Order No. 4880 89.95 

GAMEPACK I (3 Games) 
Order No. 4881 £14.95 

Dual Joystick Instruction 
Order No. 4885 69.95 

INPUT/OUTPUT Programming 
with your VIC 
Order No. 4886 69.95 

16K RAM/ROM board for S44- 
bus. Any combination of RAM 
and ROM on one baard. 
(SY2128 or 27161 
Order-N0.613 839.95 

Low cost expariiion boards lor 
your APPLE II. Bare board comes 
with extensive description and 
software, 

6522 VIA-I/O Exp. 
Order-No. 605 £39,00 

2716 EPROM-Burnor 
Order-No. 607 649.00 

8K EPROM/RAM Card 
Ordor-No. 609 629.00 

Software for SINCLAIR ZX-81 
and TIMEX 1000 
Machine Language Monitor 
Order No. 2399 89.95 

Mailing List 

Order No, 2398 619.95 

Programming in BASIC and 
machine language with the 
ZX-81(82) or TIMEX 1000. 
Order No. 140 (book) 89.95 



ELCOMP Publistiing, Inc., 53 Redrock Lane 
Pomona, CA 91766, Phone: (714| 623 8314 
Payment: Check, Money Order, VISA, Masterchargo, Eurocheck. 
POSTPAID on PREPAID in USA. 6 5.00 handling fee for C.O.D. 
orders outside USA: Add 15% shipping. CA add 6,5% sales lax. 
ATARI is a registered trariemark of ATARI Inc. APPLE is a registered 
trademark of APPLE Inc. PET-*-VIC-20 is a trademark of Commodore, 



ANDROID 
ATTACK 

J^ ATARI 



l=^OF? 




Fight your nay donn through the 
Top-Secret underground laboritory 
to save the runaway nuclear 
reactor, then try to save yourself 
before the Androids get youl 

16K cassette, 32K disk (SPECIFY') 

Ask for ANDROID ATTACK at your 
local dealer or send $18.95 + $2.81 
shipping. Nrite for our illustrated 
list of ganes for your ATARI. 

F^ Fi E T Z E: l_ l_ #=» M O 

2005 B WHITTAKER RD 
YPSILANTI, MI 48197 
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READY FOR A 






It's a battle of wits and fast action, this challenging game in ROM form for 

Atari® BOO™ Personal Computer Systems. You're trapped in an Alien Fortress. Your 

mission is to clear your sector of the Alien Droids and progress to the next sector. 

The first sector seems easy enough . . . BUT-WATCH-OUT ... as you progress from 

sector to sector, the Droids become more numerous and aggressive. A 

challenge and fun too! 

K-RAZY SHOOT-OUT is destined to be a favorite of Atari enthusiasts 
across the country with features like; 

• Solid-state ROM pack • Full-color T.V. graphics 

• Seven progressive levels of play and space-age sound ^ 

• Every game different • Full-color instruction booklet 

• Bonuses and penalties • Millions of variations 

• A constant challenge 

[WARNING: Playing the game could be HABIT forming] 
Now at your Atari Dealer! 



Coming eoon: 



TM 



• K-DOS'^ 

• K-STAR PATROL 

• K-RAZY KRITTERS' 

•Atari ie the Registered Trademark of Atari. Inc. 
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Good Golly! What A GAME! 

The original arcade game PREPPIE! wili give you hours of toe-ticl<ling fun. You tal<e the controls, moving your young 
prepster about on the golf course. And what a golf course! It's unlike any you have ever played on before. There are dangers 
everywhere, and only you can keep the little Ivy Leaguer from a fate worse then Penn State! 

PREPPIE! is written in state-of-the-art machine language, is joystick compatible and fully utilizes the Atari's sound and 

graphics capabilities. Quite frankly, it will give you the most fun you can have on an Atari microcomputer, r- ^ 

ATARI 16KTAPE $29 95 

PREPPIE! is available at fine computer, book, and hobby stores everywhere. [atari 32K disk — $29.95 

An exclusive game from 

To order, see your local dealer. If he does not 
have the program you want, then call 
1-800-327-7172 (orders only) or write for our 
free catalog. 



"My Atari never did things iil<e ttiis before!" 
— Holister Townsend Wolfe 
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"I tiad so much fun i almost blew my 
doughnuts." 

— Theodore Boston III 



Published by ADVENTURE INTERNATIONAL 

a division of Scott Adams, Inc. 
BOX 3435 • LONGWOOD, FL 32750 • (305) 862-6917 



"I haven't had this much fun since Buffy 
and I went to Princeton for the weekend." 
— Martha Vineyard 



